mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-27 10:54:40 +00:00
Code Issues Releases Activity

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

Browse Source 
* lisp/ffap.el (ffap-guess-file-name-at-point): Ignore errors
while 'ffap-guesser' runs.  (Bug#23218)
This commit is contained in:
Eli Zaretskii 2016-04-08 11:05:20 +03:00
parent a3f1ac2e3b
commit 7ad1d075b9
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/ffap.el
View File

@ -1966,7 +1966,9 @@ Only intended for interactive use."
(defun ffap-guess-file-name-at-point () (defun ffap-guess-file-name-at-point ()
"Try to get a 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'." 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) (when (stringp guess)
(let ((url (ffap-url-p guess))) (let ((url (ffap-url-p guess)))
(or url (or url