[nongnu] elpa/helm 115847b8d5 2/2: Fix bug #2574 by let-binding ffap-machine-p-known

[ELPA Syncer]

branch: elpa/helm
commit 115847b8d5f4175d7469f873d50a7e41710db5aa
Author: Thierry Volpiatto <thievol@posteo.net>
Commit: Thierry Volpiatto <thievol@posteo.net>

    Fix bug #2574 by let-binding ffap-machine-p-known
---
 helm-lib.el | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/helm-lib.el b/helm-lib.el
index fefe45dd8e..c0207fbc9a 100644
--- a/helm-lib.el
+++ b/helm-lib.el
@@ -1875,7 +1875,11 @@ Also `helm-completion-style' settings have no effect 
here,
 
 (defun helm-guess-filename-at-point ()
   (with-helm-current-buffer
-    (run-hook-with-args-until-success 'file-name-at-point-functions)))
+    ;; Ensure to disable the evil `ffap-machine-at-point' which may run here as
+    ;; `file-name-at-point-functions' contains by default
+    ;; `ffap-guess-file-name-at-point' See bug#2574.
+    (let ((ffap-machine-p-known 'accept)) ; Emacs-29 uses 'accept as default.
+      (run-hook-with-args-until-success 'file-name-at-point-functions))))
 
 ;; Yank text at point.
 ;;