]> git.eshelyaron.com Git - emacs.git/commitdiff
Simplify some Dired prompts
authorEshel Yaron <me@eshelyaron.com>
Tue, 4 Jun 2024 20:26:53 +0000 (22:26 +0200)
committerEshel Yaron <me@eshelyaron.com>
Tue, 4 Jun 2024 20:26:53 +0000 (22:26 +0200)
lisp/dired.el

index 74ddfa9b775e6895bfcc0eeba9af14877adc65ce..1b6433c6541a1296d8594bb42cbd5926b5177904 100644 (file)
@@ -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