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

diff --git a/lisp/ffap.el b/lisp/ffap.el
index 37a3b608c5b0fc42daf02ad4ccd6a8ee653255ff..9579cce1752acaf00bf44731b1065127b156b3b0 100644 (file)
--- 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.