;; because the user may want completion of file names for
;; use in a wildcard pattern.
(if (next-read-file-uses-dialog-p)
- (read-directory-name (format "Dired %s(directory): " str)
+ (read-directory-name (format "Dired%s: " str)
nil default-directory nil)
- (read-file-name (format "Dired %s(directory): " str)
+ (read-file-name (format "Dired%s: " str)
nil default-directory nil)))))
;; We want to switch to a more sophisticated version of
;;;###autoload
(defun dired-other-window (dirname &optional switches)
"\"Edit\" directory DIRNAME. Like `dired' but select in another window."
- (interactive (dired-read-dir-and-switches "in other window "))
+ (interactive (dired-read-dir-and-switches " in other window"))
(switch-to-buffer-other-window (dired-noselect dirname switches)))
;;;###autoload (define-key ctl-x-5-map "d" 'dired-other-frame)
;;;###autoload
(defun dired-other-frame (dirname &optional switches)
"\"Edit\" directory DIRNAME. Like `dired' but make a new frame."
- (interactive (dired-read-dir-and-switches "in other frame "))
+ (interactive (dired-read-dir-and-switches " in other frame"))
(switch-to-buffer-other-frame (dired-noselect dirname switches)))
;;;###autoload (define-key tab-prefix-map "d" 'dired-other-tab)
;;;###autoload
(defun dired-other-tab (dirname &optional switches)
"\"Edit\" directory DIRNAME. Like `dired' but make a new tab."
- (interactive (dired-read-dir-and-switches "in other tab "))
+ (interactive (dired-read-dir-and-switches " in other tab"))
(switch-to-buffer-other-tab (dired-noselect dirname switches)))
;;;###autoload