mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-01 11:14:55 +00:00
Code Issues Releases Activity

(ido-file-internal, ido-read-file-name, ido-read-directory-name):

Browse Source 
Let bind minibuffer-completing-file-name to t.
This commit is contained in:
Kim F. Storm 2005-07-15 13:09:03 +00:00
parent 2994c5cf63
commit 83a12f3a55
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ido.el
View File

@ -2023,7 +2023,8 @@ If INITIAL is non-nil, it specifies the initial input string."
(setq item 'file))
(let ((ido-current-directory (ido-expand-directory default))
(ido-context-switch-command switch-cmd)
ido-directory-nonreadable ido-directory-too-big
ido-directory-nonreadable ido-directory-too-big
(minibuffer-completing-file-name t)
filename)
(if (or (not ido-mode) (ido-is-slow-ftp-host))
@ -4250,6 +4251,7 @@ See `read-file-name' for additional parameters."
(ido-context-switch-command
(if (eq (get this-command 'ido) 'find-file) nil 'ignore))
(vc-handled-backends (and (boundp 'vc-handled-backends) vc-handled-backends))
(minibuffer-completing-file-name t)
(ido-current-directory (ido-expand-directory dir))
(ido-directory-nonreadable (not (file-readable-p ido-current-directory)))
(ido-directory-too-big (and (not ido-directory-nonreadable)
@ -4282,6 +4284,7 @@ See `read-file-name' for additional parameters."
Read directory name, prompting with PROMPT and completing in directory DIR.
See `read-directory-name' for additional parameters."
(let* (filename
(minibuffer-completing-file-name t)
(ido-context-switch-command 'ignore)
ido-saved-vc-hb
(ido-current-directory (ido-expand-directory dir))