From ca3c59146bd5c0effdc7602718b91f1ee41f866a Mon Sep 17 00:00:00 2001 From: Katsumi Yamaoka Date: Fri, 17 May 2019 01:34:47 +0000 Subject: [PATCH] Fix ffap behavior in the Gnus group buffer (bug#35693) * lisp/ffap.el (ffap-file-exists-string, ffap-file-at-point): Don't recognize "" as a path or a file name (bug#35693). --- lisp/ffap.el | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/lisp/ffap.el b/lisp/ffap.el index bcb5efef544..08f72089450 100644 --- a/lisp/ffap.el +++ b/lisp/ffap.el @@ -513,7 +513,9 @@ When using jka-compr (a.k.a. `auto-compression-mode'), the returned name may have a suffix added from `ffap-compression-suffixes'. The optional NOMODIFY argument suppresses the extra search." (cond - ((not file) nil) ; quietly reject nil + ((or (not file) ; quietly reject nil + (zerop (length file))) ; and also "" + nil) ((file-exists-p file) file) ; try unmodified first ;; three reasons to suppress search: (nomodify nil) @@ -1326,6 +1328,7 @@ which may actually result in an URL rather than a filename." ;; If it contains a colon, get rid of it (and return if exists) ((and (string-match path-separator name) (setq name (ffap-string-at-point 'nocolon)) + (> (length name) 0) (ffap-file-exists-string name))) ;; File does not exist, try the alist: ((let ((alist ffap-alist) tem try case-fold-search) -- 2.39.5