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

[Miles Bader]

Index: emacs/lisp/dired.el
diff -c emacs/lisp/dired.el:1.230.2.18 emacs/lisp/dired.el:1.230.2.19
*** emacs/lisp/dired.el:1.230.2.18      Thu Nov  4 13:12:41 2004
--- emacs/lisp/dired.el Fri Nov 12 04:21:13 2004
***************
*** 546,553 ****
            (if current-prefix-arg
                (read-string "Dired listing switches: "
                             dired-listing-switches))
!           (read-directory-name (format "Dired %s(directory): " str)
!                           nil default-directory nil))))
  
  ;;;###autoload (define-key ctl-x-map "d" 'dired)
  ;;;###autoload
--- 546,559 ----
            (if current-prefix-arg
                (read-string "Dired listing switches: "
                             dired-listing-switches))
!           ;; If a dialog is about to be used, call read-directory-name so
!           ;; the dialog code knows we want directories.  Some dialogs can
!           ;; only select directories or files when popped up, not both.
!           (if (next-read-file-uses-dialog-p)
!               (read-directory-name (format "Dired %s(directory): " str)
!                                    nil default-directory nil)
!             (read-file-name (format "Dired %s(directory): " str)
!                             nil default-directory nil)))))
  
  ;;;###autoload (define-key ctl-x-map "d" 'dired)
  ;;;###autoload