From: Kim F. Storm <storm@cua.dk>
Date: Fri, 29 Sep 2006 12:25:35 +0000 (+0000)
Subject: (ido-file-internal): Only bind minibuffer-completing-file-name
X-Git-Tag: emacs-pretest-22.0.90~304
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d471b4fe3a15be8662322034229dd7bb3fd2233b;p=emacs.git

(ido-file-internal): Only bind minibuffer-completing-file-name
to t while calling ido-read-internal.
---

diff --git a/lisp/ido.el b/lisp/ido.el
index 432347717f5..b68a4622ef8 100644
--- a/lisp/ido.el
+++ b/lisp/ido.el
@@ -2224,7 +2224,6 @@ If INITIAL is non-nil, it specifies the initial input string."
   (let ((ido-current-directory (ido-expand-directory default))
 	(ido-context-switch-command switch-cmd)
 	ido-directory-nonreadable ido-directory-too-big
-	(minibuffer-completing-file-name t)
 	filename)
 
     (if (or (not ido-mode) (ido-is-slow-ftp-host))
@@ -2268,9 +2267,10 @@ If INITIAL is non-nil, it specifies the initial input string."
 
       (unless filename
 	(setq ido-saved-vc-hb vc-handled-backends)
-	(setq filename (ido-read-internal item
-					  (or prompt "Find file: ")
-					  'ido-file-history nil nil initial)))
+	(let ((minibuffer-completing-file-name t))
+	  (setq filename (ido-read-internal item
+					    (or prompt "Find file: ")
+					    'ido-file-history nil nil initial))))
 
       ;; Choose the file name: either the text typed in, or the head
       ;; of the list of matches