branch: elpa/helm
commit 115847b8d5f4175d7469f873d50a7e41710db5aa
Author: Thierry Volpiatto <thie...@posteo.net>
Commit: Thierry Volpiatto <thie...@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.
;;
