From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 2 Jul 1998 07:02:47 +0000 (+0000)
Subject: (ffap-read-file-or-url): Bind minibuffer-completing-file-name to t.
X-Git-Tag: emacs-20.3~420
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a22f0735054f72beead54113b8663da20c7a06e1;p=emacs.git

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

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.