changeset 94893:8a9fade74963

* dired.el (dired-read-dir-and-switches): Use read-file-name.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Tue, 13 May 2008 08:39:54 +0000
parents 562fcfcace31
children 05e7c4a4e123
files lisp/ChangeLog lisp/dired.el
diffstat 2 files changed, 25 insertions(+), 31 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/ChangeLog	Tue May 13 08:08:25 2008 +0000
+++ b/lisp/ChangeLog	Tue May 13 08:39:54 2008 +0000
@@ -1,5 +1,7 @@
 2008-05-13  Stefan Monnier  <monnier@iro.umontreal.ca>
 
+	* dired.el (dired-read-dir-and-switches): Use read-file-name.
+
 	* dired.el (dired-read-dir-and-switches): Ignore ., .., and
 	completion-ignored-extension directories if there's something else.
 	(dired-mark-if, dired-map-over-marks, dired-readin, dired-revert)
--- a/lisp/dired.el	Tue May 13 08:08:25 2008 +0000
+++ b/lisp/dired.el	Tue May 13 08:39:54 2008 +0000
@@ -600,7 +600,6 @@
                              nil default-directory nil)
       (lexical-let ((default (and buffer-file-name
                                   (abbreviate-file-name buffer-file-name)))
-                    (defdir default-directory)
                     (cie ()))
         (dolist (ext completion-ignored-extensions)
           (if (eq ?/ (aref ext (1- (length ext)))) (push ext cie)))
@@ -608,36 +607,29 @@
         (minibuffer-with-setup-hook
             (lambda ()
               (setq minibuffer-default default)
-              (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
-            (format "Dired %s(directory): " str)
-            ;; We need a mix of read-file-name and read-directory-name
-            ;; so that completion to directories is preferred, but if
-            ;; the user wants to enter a global pattern, he can still
-            ;; use completion on filenames to help him write the pattern.
-            ;; Essentially, we want to use
-            ;; (completion-table-with-predicate
-            ;;  'read-file-name-internal 'file-directory-p nil)
-            ;; but that doesn't work because read-file-name-internal
-            ;; does not obey its `predicate' argument.
-            (completion-table-in-turn
-             (lambda (str pred action)
-               (let ((read-file-name-predicate
-                      (lambda (f) (and (not (member f '("./" "../")))
-                                  ;; Hack! Faster than file-directory-p!
-                                  (eq (aref f (1- (length f))) ?/)
-                                  (not (string-match cie f))))))
-                 (complete-with-action
-                  action 'read-file-name-internal str nil)))
-             'read-file-name-internal)
-            nil nil (abbreviate-file-name defdir) 'file-name-history))))))))
+              (setq minibuffer-completion-table
+                    ;; We need a mix of read-file-name and
+                    ;; read-directory-name so that completion to directories
+                    ;; is preferred, but if the user wants to enter a global
+                    ;; pattern, he can still use completion on filenames to
+                    ;; help him write the pattern.
+                    ;; Essentially, we want to use
+                    ;; (completion-table-with-predicate
+                    ;;  'read-file-name-internal 'file-directory-p nil)
+                    ;; but that doesn't work because read-file-name-internal
+                    ;; does not obey its `predicate' argument.
+                    (completion-table-in-turn
+                     (lambda (str pred action)
+                       (let ((read-file-name-predicate
+                              (lambda (f) (and (not (member f '("./" "../")))
+                                          ;; Hack! Faster than file-directory-p!
+                                          (eq (aref f (1- (length f))) ?/)
+                                          (not (string-match cie f))))))
+                         (complete-with-action
+                          action 'read-file-name-internal str nil)))
+                     'read-file-name-internal)))
+          (read-file-name (format "Dired %s(directory): " str)
+                          nil default-directory nil)))))))
 
 ;;;###autoload (define-key ctl-x-map "d" 'dired)
 ;;;###autoload