diff options
| author | Kim F. Storm <storm@cua.dk> | 2006-09-29 12:25:35 +0000 |
|---|---|---|
| committer | Kim F. Storm <storm@cua.dk> | 2006-09-29 12:25:35 +0000 |
| commit | d471b4fe3a15be8662322034229dd7bb3fd2233b (patch) | |
| tree | 0281d768fed827810a7d27dfed47c094714fbe8a /lisp/ido.el | |
| parent | f45b66b9783d9dd689f7b1f6840b88c0ba73667d (diff) | |
| download | emacs-d471b4fe3a15be8662322034229dd7bb3fd2233b.tar.gz | |
(ido-file-internal): Only bind minibuffer-completing-file-name
to t while calling ido-read-internal.
Diffstat (limited to 'lisp/ido.el')
| -rw-r--r-- | lisp/ido.el | 8 |
1 files changed, 4 insertions, 4 deletions
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 |