# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 807199414 0
# Node ID 2b3371d2facb7d70c6d31fdb8cb820f90fd9df67
# Parent  981b924c832bc9b9ee0ea01ed25c7e5965747fd5
(dired-read-shell-command): Pass `shell-command-history' to read-string.

diff -r 981b924c832b -r 2b3371d2facb lisp/dired-aux.el
--- a/lisp/dired-aux.el	Mon Jul 31 12:07:10 1995 +0000
+++ b/lisp/dired-aux.el	Mon Jul 31 14:03:34 1995 +0000
@@ -308,7 +308,8 @@
   (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 `&'.