546 |
(if current-prefix-arg |
(if current-prefix-arg |
547 |
(read-string "Dired listing switches: " |
(read-string "Dired listing switches: " |
548 |
dired-listing-switches)) |
dired-listing-switches)) |
549 |
(read-directory-name (format "Dired %s(directory): " str) |
;; If a dialog is about to be used, call read-directory-name so |
550 |
nil default-directory nil)))) |
;; the dialog code knows we want directories. Some dialogs can |
551 |
|
;; only select directories or files when popped up, not both. |
552 |
|
(if (next-read-file-uses-dialog-p) |
553 |
|
(read-directory-name (format "Dired %s(directory): " str) |
554 |
|
nil default-directory nil) |
555 |
|
(read-file-name (format "Dired %s(directory): " str) |
556 |
|
nil default-directory nil))))) |
557 |
|
|
558 |
;;;###autoload (define-key ctl-x-map "d" 'dired) |
;;;###autoload (define-key ctl-x-map "d" 'dired) |
559 |
;;;###autoload |
;;;###autoload |