diff options
| author | Christopher Schmidt <christopher@ch.ristopher.com> | 2012-12-15 14:05:04 +0200 |
|---|---|---|
| committer | Juri Linkov <juri@jurta.org> | 2012-12-15 14:05:04 +0200 |
| commit | 178fb95dc0f43541296beaf385905a7b626defb8 (patch) | |
| tree | 0bc1927eaa8e53b66268569d026861c68226b55c /lisp/dired-x.el | |
| parent | 7be7da6c9f065bd2cc0f30f3675116536efefde4 (diff) | |
| download | emacs-178fb95dc0f43541296beaf385905a7b626defb8.tar.gz | |
* lisp/dired-x.el (dired-guess-shell-command): Put colon at the end of the prompt.
Fixes: debbugs:13045
Diffstat (limited to 'lisp/dired-x.el')
| -rw-r--r-- | lisp/dired-x.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/dired-x.el b/lisp/dired-x.el index 1237eef86cf..ece73519686 100644 --- a/lisp/dired-x.el +++ b/lisp/dired-x.el @@ -1114,6 +1114,7 @@ See `dired-guess-shell-alist-user'." (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 @@ See `dired-guess-shell-alist-user'." ;; 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 |