From 2412bb6ec5ae28c6100f8e6e7b61c451ea4fcd8b Mon Sep 17 00:00:00 2001 From: Eshel Yaron Date: Tue, 4 Jun 2024 22:26:53 +0200 Subject: [PATCH] Simplify some Dired prompts --- lisp/dired.el | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/lisp/dired.el b/lisp/dired.el index 74ddfa9b775..1b6433c6541 100644 --- a/lisp/dired.el +++ b/lisp/dired.el @@ -1076,9 +1076,9 @@ ERROR can be a string with the error message." ;; 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 @@ -1186,21 +1186,21 @@ If DIRNAME is already in a Dired buffer, that buffer is used without refresh." ;;;###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 -- 2.39.2