From: Eshel Yaron <me@eshelyaron.com>
Date: Tue, 4 Jun 2024 20:26:53 +0000 (+0200)
Subject: Simplify some Dired prompts
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2412bb6ec5ae28c6100f8e6e7b61c451ea4fcd8b;p=emacs.git

Simplify some Dired prompts
---

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