Commit 1906dec4 authored by Stefan Monnier's avatar Stefan Monnier
Browse files

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

parent 65f81a0b
2008-04-07 Stefan Monnier <monnier@iro.umontreal.ca>
* dired-aux.el (dired-read-shell-command): Use read-shell-command.
2008-04-07 Sam Steingold <sds@gnu.org>
 
* 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.
......
......@@ -514,16 +514,16 @@ with a prefix argument."
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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment