[Emacs-diffs] Changes to emacs/lisp/dired-aux.el,v

[Stefan Monnier]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Stefan Monnier <monnier>        08/04/07 18:57:31

Index: dired-aux.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/dired-aux.el,v
retrieving revision 1.166
retrieving revision 1.167
diff -u -b -r1.166 -r1.167
--- dired-aux.el        6 Apr 2008 20:11:37 -0000       1.166
+++ dired-aux.el        7 Apr 2008 18:57:27 -0000       1.167
@@ -514,16 +514,16 @@
                            common-mime-info))))
     commands))
 
+;; This is an extra function so that you can redefine it, e.g., to use gmhist.
 (defun dired-read-shell-command (prompt arg files)
-;;  "Read a dired shell command prompting with PROMPT (using read-string).
-;;ARG is the prefix arg and may be used to indicate in the prompt which
-;;  files are affected.
-;;This is an extra function so that you can redefine it, e.g., to use gmhist."
+  "Read a dired shell command prompting with PROMPT (using read-string).
+ARG is the prefix arg and may be used to indicate in the prompt which
+FILES are affected."
   (dired-mark-pop-up
    nil 'shell files
-   (function read-string)
+   #'read-shell-command
    (format prompt (dired-mark-prompt arg files))
-   nil 'shell-command-history
+   nil nil
    (dired-read-shell-command-default files)))
 
 ;; The in-background argument is only needed in Emacs 18 where