[Emacs-diffs] /srv/bzr/emacs/trunk r111240: * lisp/dired-x.el (dired-guess-shell-command): Put colon at the end of the prompt.

[Juri Linkov]

------------------------------------------------------------
revno: 111240
fixes bug: http://debbugs.gnu.org/13045
author: Christopher Schmidt <address@hidden>
committer: Juri Linkov <address@hidden>
branch nick: trunk
timestamp: Sat 2012-12-15 14:05:04 +0200
message:
  * lisp/dired-x.el (dired-guess-shell-command): Put colon at the end of the 
prompt.
modified:
  lisp/ChangeLog
  lisp/dired-x.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2012-12-14 21:27:39 +0000
+++ b/lisp/ChangeLog    2012-12-15 12:05:04 +0000
@@ -1,3 +1,8 @@
+2012-12-15  Christopher Schmidt  <address@hidden>
+
+       * dired-x.el (dired-guess-shell-command): Put colon at the end of
+       the prompt.  (Bug#13045)
+
 2012-12-14  Glenn Morris  <address@hidden>
 
        * emacs-lisp/macroexp.el (macroexp--warn-and-return):

=== modified file 'lisp/dired-x.el'
--- a/lisp/dired-x.el   2012-09-25 04:13:02 +0000
+++ b/lisp/dired-x.el   2012-12-15 12:05:04 +0000
@@ -1114,6 +1114,7 @@
     (if (null default)
         ;; Nothing to guess
         (read-shell-command prompt nil 'dired-shell-command-history)
+      (setq prompt (replace-regexp-in-string ": $" " " prompt))
       (if (listp default)
           ;; More than one guess
           (setq default-list default
@@ -1124,7 +1125,7 @@
         ;; Just one guess
         (setq default-list (list default)))
       ;; Put the first guess in the prompt but not in the initial value.
-      (setq prompt (concat prompt (format "[%s] " default)))
+      (setq prompt (concat prompt (format "[%s]: " default)))
       ;; All guesses can be retrieved with M-n
       (setq val (read-shell-command prompt nil
                                     'dired-shell-command-history