# HG changeset patch # User Stefan Monnier # Date 1207594648 0 # Node ID 5c5449669a8d34ce590174c761173b5eef1be97d # Parent 76b4fbf1962878bd762ada3979638696518f9d35 (dired-read-shell-command): Use read-shell-command. diff -r 76b4fbf19628 -r 5c5449669a8d lisp/ChangeLog --- 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 @@ +2008-04-07 Stefan Monnier + + * dired-aux.el (dired-read-shell-command): Use read-shell-command. + 2008-04-07 Sam Steingold * 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. diff -r 76b4fbf19628 -r 5c5449669a8d lisp/dired-aux.el --- 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