1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 12:21:25 -08:00

(ffap-complete-as-file-p): Use minibuffer-completing-file-name.

This commit is contained in:
Stefan Monnier 2003-02-10 22:21:46 +00:00
parent 4c86cca05a
commit 9925c4191b

View file

@ -1240,9 +1240,7 @@ which may actually result in an url rather than a filename."
;; Note: t and non-nil mean somewhat different reasons.
(if (eq minibuffer-completion-table 'ffap-read-file-or-url-internal)
(not (ffap-url-p (buffer-string))) ; t
(memq minibuffer-completion-table
'(read-file-name-internal read-directory-name-internal)) ; list
))
(and minibuffer-completing-file-name '(t)))) ;list
(and
(featurep 'complete)