changeset 93827:5c5449669a8d

(dired-read-shell-command): Use read-shell-command.

--- a/lisp/ChangeLog	Mon Apr 07 17:03:42 2008 +0000
+++ b/lisp/ChangeLog	Mon Apr 07 18:57:28 2008 +0000
@@ -1,8 +1,12 @@
[phone]  Stefan Monnier  <[e-mail]>
+
+	* dired-aux.el (dired-read-shell-command): Use read-shell-command.
+
 2008-04-07  Sam Steingold  <[e-mail]>
 
 	* progmodes/inf-lisp.el (lisp-compile-string, lisp-eval-string):
 	Add helper functions.
-	(lisp-do-defun): Extracted the common part of lisp-eval-defun and
+	(lisp-do-defun): Extract the common part of lisp-eval-defun and
 	lisp-compile-defun; DEFVAR forms reset the variables to the init
 	values, just like in emacs-lisp mode eval-defun.
 	(lisp-eval-defun, lisp-compile-defun): Use lisp-do-defun.

--- a/lisp/dired-aux.el	Mon Apr 07 17:03:42 2008 +0000
+++ b/lisp/dired-aux.el	Mon Apr 07 18:57:28 2008 +0000
@@ -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