Mercurial > emacs
changeset 22659:8dda497e707d
(ffap-read-file-or-url): Bind minibuffer-completing-file-name to t.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 02 Jul 1998 07:02:47 +0000 |
| parents | 9f320d762e2f |
| children | 1614e05bf2b5 |
| files | lisp/ffap.el |
| diffstat | 1 files changed, 9 insertions(+), 9 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ffap.el Thu Jul 02 07:01:56 1998 +0000 +++ b/lisp/ffap.el Thu Jul 02 07:02:47 1998 +0000 @@ -1183,15 +1183,15 @@ (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.