Avoid signaling errors in 'M-n' at the 'C-x C-f' prompt

* lisp/ffap.el (ffap-guess-file-name-at-point): Ignore errors
while 'ffap-guesser' runs.  (Bug#23218)

diff --git a/lisp/ffap.el b/lisp/ffap.el
index 36727b3747d44b71f7cca9d4dd3e6ac44ea411b0..8343b475c1b273a5acaefbed65db20f2d814ab44 100644 (file)
--- a/lisp/ffap.el
+++ b/lisp/ffap.el
@@ -1966,7 +1966,9 @@ Only intended for interactive use."
 (defun ffap-guess-file-name-at-point ()
   "Try to get a file name at point.
 This hook is intended to be put in `file-name-at-point-functions'."
-  (let ((guess (ffap-guesser)))
+  ;; ffap-guesser can signal an error, and we don't want that when,
+  ;; e.g., the user types M-n at the "C-x C-f" prompt.
+  (let ((guess (ignore-errors (ffap-guesser))))
     (when (stringp guess)
       (let ((url (ffap-url-p guess)))
        (or url