diff options
| author | Richard M. Stallman <rms@gnu.org> | 1998-07-02 07:02:47 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1998-07-02 07:02:47 +0000 |
| commit | a22f0735054f72beead54113b8663da20c7a06e1 (patch) | |
| tree | 3819bcfb5fa8dc7d1778cc9846a9a1ec82248ca1 | |
| parent | a79485afb88f0ebe679b91c128e9c9dd5a98b9a4 (diff) | |
| download | emacs-a22f0735054f72beead54113b8663da20c7a06e1.tar.gz | |
(ffap-read-file-or-url): Bind minibuffer-completing-file-name to t.
| -rw-r--r-- | lisp/ffap.el | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/lisp/ffap.el b/lisp/ffap.el index 37a3b608c5b..9579cce1752 100644 --- a/lisp/ffap.el +++ b/lisp/ffap.el @@ -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. |