From 83a12f3a553d0e11884dc8c07c876d330b58ff28 Mon Sep 17 00:00:00 2001 From: "Kim F. Storm" Date: Fri, 15 Jul 2005 13:09:03 +0000 Subject: [PATCH] (ido-file-internal, ido-read-file-name, ido-read-directory-name): Let bind minibuffer-completing-file-name to t. --- lisp/ido.el | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/lisp/ido.el b/lisp/ido.el index 093012dc229..f1fbb4cdbdd 100644 --- a/lisp/ido.el +++ b/lisp/ido.el @@ -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)) -- 2.39.5