From 178fb95dc0f43541296beaf385905a7b626defb8 Mon Sep 17 00:00:00 2001 From: Christopher Schmidt Date: Sat, 15 Dec 2012 14:05:04 +0200 Subject: [PATCH] * lisp/dired-x.el (dired-guess-shell-command): Put colon at the end of the prompt. Fixes: debbugs:13045 --- lisp/ChangeLog | 5 +++++ lisp/dired-x.el | 3 ++- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 0517a66916f..c291bba0f19 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2012-12-15 Christopher Schmidt + + * dired-x.el (dired-guess-shell-command): Put colon at the end of + the prompt. (Bug#13045) + 2012-12-14 Glenn Morris * emacs-lisp/macroexp.el (macroexp--warn-and-return): 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 -- 2.39.5