branch: elpa/helm
commit aee1b36fa7b7819ccc1f01bc313bf77d4cf6a98d
Author: Thierry Volpiatto <thie...@posteo.net>
Commit: Thierry Volpiatto <thie...@posteo.net>
Ensure ffap-machine-p never ping (#2574)
---
helm-lib.el | 6 +++++-
1 file changed, 5 insertions(+), 1 deletion(-)
diff --git a/helm-lib.el b/helm-lib.el
index 265ae9bbf6..0a915c119a 100644
--- a/helm-lib.el
+++ b/helm-lib.el
@@ -1732,7 +1732,11 @@ Also `helm-completion-style' settings have no effect
here,
;; 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.
+ ;; Use same value as in Emacs-29 for next 3 vars to ensure `ffap-machine-p'
+ ;; never ping.
+ (let ((ffap-machine-p-known 'accept)
+ (ffap-machine-p-local 'reject)
+ (ffap-machine-p-unknown 'reject))
(run-hook-with-args-until-success 'file-name-at-point-functions))))
;; Yank text at point.
