mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(ffap-read-file-or-url): Bind minibuffer-completing-file-name to t.

Browse source
This commit is contained in:
Richard M. Stallman 1998-07-02 07:02:47 +00:00
parent a79485afb8
commit a22f073505
1 changed files with 9 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

18
lisp/ffap.el
View file

@ -1183,15 +1183,15 @@ which may actually result in an url rather than a filename."
(abbreviate-file-name (expand-file-name guess))
))
(setq dir (file-name-directory guess))))
(setq guess
(completing-read
prompt
'ffap-read-file-or-url-internal
dir
nil
(if dir (cons guess (length dir)) guess)
(list 'file-name-history)
))
(let ((minibuffer-completing-file-name t))
(setq guess
(completing-read
prompt
'ffap-read-file-or-url-internal
dir
nil
(if dir (cons guess (length dir)) guess)
(list 'file-name-history))))
;; Do file substitution like (interactive "F"), suggested by MCOOK.
(or (ffap-url-p guess) (setq guess (substitute-in-file-name guess)))
;; Should not do it on url's, where $ is a common (VMS?) character.