Mercurial > emacs
changeset 18500:2240a2e37b12
(dired-do-shell-command): New arg FILE-LIST
so that we don't recompute it after the user provides the input.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 30 Jun 1997 06:13:58 +0000 |
| parents | 65274adec5a2 |
| children | 37f4c7aeb5a8 |
| files | lisp/dired-aux.el |
| diffstat | 1 files changed, 12 insertions(+), 11 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/dired-aux.el Mon Jun 30 02:26:51 1997 +0000 +++ b/lisp/dired-aux.el Mon Jun 30 06:13:58 1997 +0000 @@ -319,7 +319,7 @@ ;; The in-background argument is only needed in Emacs 18 where ;; shell-command doesn't understand an appended ampersand `&'. ;;;###autoload -(defun dired-do-shell-command (command &optional arg) +(defun dired-do-shell-command (command &optional arg file-list) "Run a shell command COMMAND on the marked files. If no files are marked or a specific numeric prefix arg is given, the next ARG files are used. Just \\[universal-argument] means the current file. @@ -339,16 +339,17 @@ output files usually are created there instead of in a subdir." ;;Functions dired-run-shell-command and dired-shell-stuff-it do the ;;actual work and can be redefined for customization. - (interactive (list - ;; Want to give feedback whether this file or marked files are used: - (dired-read-shell-command (concat "! on " - "%s: ") - current-prefix-arg - (dired-get-marked-files - t current-prefix-arg)) - current-prefix-arg)) - (let* ((on-each (not (string-match "\\*" command))) - (file-list (dired-get-marked-files t arg))) + (interactive + (let ((files (dired-get-marked-files t current-prefix-arg))) + (list + ;; Want to give feedback whether this file or marked files are used: + (dired-read-shell-command (concat "! on " + "%s: ") + current-prefix-arg + files) + current-prefix-arg + files))) + (let* ((on-each (not (string-match "\\*" command)))) (if on-each (dired-bunch-files (- 10000 (length command))