From a8b0c38b6493b9f3e2bd5f67f9e778dfeaaeca75 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Tue, 6 May 2008 00:51:56 +0000 Subject: [PATCH] (dired-read-dir-and-switches): Fix up last change. --- lisp/ChangeLog | 6 +++++- lisp/dired.el | 9 ++++++--- 2 files changed, 11 insertions(+), 4 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 92bb56f5392..8b3d4af9215 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,7 +1,11 @@ +2008-05-06 Stefan Monnier + + * dired.el (dired-read-dir-and-switches): Fix up last change. + 2008-05-05 Eric S. Raymond * vc.el (vc-deduce-fileset): Lift all the policy and UI - stuff out of this function, move it to vc-dispatcher-selection-set.k + stuff out of this function, move it to vc-dispatcher-selection-set. 2008-05-05 Sam Steingold diff --git a/lisp/dired.el b/lisp/dired.el index e6c1dbd16c9..c22e27fd95e 100644 --- a/lisp/dired.el +++ b/lisp/dired.el @@ -606,9 +606,12 @@ Don't use that together with FILTER." (minibuffer-with-setup-hook (lambda () (setq minibuffer-default default) - (setq minibuffer-completing-file-name t) - (setq completion-ignore-case - read-file-name-completion-ignore-case) + (set (make-local-variable 'minibuffer-completing-file-name) + ;; t means "from now until the next minibuffer", whereas + ;; `lambda' means "only here". + 'lambda) + (set (make-local-variable 'completion-ignore-case) + read-file-name-completion-ignore-case) (setq default-directory defdir)) (substitute-in-file-name (completing-read -- 2.39.5