[Emacs-diffs] Changes to emacs/lisp/dired.el,v

[Stefan Monnier]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Stefan Monnier <monnier>        08/05/02 17:20:08

Index: dired.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/dired.el,v
retrieving revision 1.391
retrieving revision 1.392
diff -u -b -r1.391 -r1.392
--- dired.el    30 Apr 2008 05:41:52 -0000      1.391
+++ dired.el    2 May 2008 17:20:07 -0000       1.392
@@ -589,7 +589,8 @@
 
 (defun dired-read-dir-and-switches (str)
   ;; For use in interactive.
-  (reverse (list
+  (reverse
+   (list
            (if current-prefix-arg
                (read-string "Dired listing switches: "
                             dired-listing-switches))
@@ -605,7 +606,9 @@
                (minibuffer-with-setup-hook
                    (lambda ()
                       (setq minibuffer-default default)
+              (setq minibuffer-completing-file-name t)
                       (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
@@ -623,7 +626,7 @@
                         (complete-with-action
                          action 'read-file-name-internal str nil)))
                     'read-file-name-internal)
-                   nil nil (abbreviate-file-name defdir) 
'file-name-history)))))))
+            nil nil (abbreviate-file-name defdir) 'file-name-history))))))))
 
 ;;;###autoload (define-key ctl-x-map "d" 'dired)
 ;;;###autoload