From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 31 Jul 1995 14:03:34 +0000 (+0000)
Subject: (dired-read-shell-command): Pass `shell-command-history' to read-string.
X-Git-Tag: emacs-19.34~3127
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=91b3bb19acaf56f1ff0a3aaa7b8e9e37c89d55e2;p=emacs.git

(dired-read-shell-command): Pass `shell-command-history' to read-string.
---

diff --git a/lisp/dired-aux.el b/lisp/dired-aux.el
index e4b96689d0d..ce9ec7a8cb0 100644
--- a/lisp/dired-aux.el
+++ b/lisp/dired-aux.el
@@ -308,7 +308,8 @@ with a prefix argument."
   (dired-mark-pop-up
    nil 'shell files
    (function read-string)
-   (format prompt (dired-mark-prompt arg files))))
+   (format prompt (dired-mark-prompt arg files))
+   nil 'shell-command-history))
 
 ;; The in-background argument is only needed in Emacs 18 where
 ;; shell-command doesn't understand an appended ampersand `&'.