Commit ca3c5914 authored by Katsumi Yamaoka's avatar Katsumi Yamaoka

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).
parent 802dcafb
Pipeline #1690 failed with stage
in 88 minutes and 4 seconds
......@@ -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)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment