diff options
| author | Tino Calancha | 2018-10-11 17:23:30 +0900 |
|---|---|---|
| committer | Tino Calancha | 2018-10-11 17:23:30 +0900 |
| commit | a7ebc6bf633bd3849ccab032dad6b1fd31b1ef43 (patch) | |
| tree | d7f1b0937f6eadb99fc3374600e3802ecda11463 | |
| parent | 0d2bf76d3d8a9d05e3b9ff4228608aa446352e7e (diff) | |
| download | emacs-a7ebc6bf633bd3849ccab032dad6b1fd31b1ef43.tar.gz emacs-a7ebc6bf633bd3849ccab032dad6b1fd31b1ef43.zip | |
dired-do-shell-command: Notify users after abort the command
* lisp/dired-aux.el (dired-do-shell-command): Notify users that
the command have aborted when they answer 'n' to the prompt (Bug#32969).
| -rw-r--r-- | lisp/dired-aux.el | 21 |
1 files changed, 11 insertions, 10 deletions
diff --git a/lisp/dired-aux.el b/lisp/dired-aux.el index 516cd2c5672..e40627309d7 100644 --- a/lisp/dired-aux.el +++ b/lisp/dired-aux.el | |||
| @@ -757,16 +757,17 @@ can be produced by `dired-get-marked-files', for example." | |||
| 757 | (y-or-n-p (format-message | 757 | (y-or-n-p (format-message |
| 758 | "Confirm--do you mean to use `?' as a wildcard? "))) | 758 | "Confirm--do you mean to use `?' as a wildcard? "))) |
| 759 | (t)))) | 759 | (t)))) |
| 760 | (when ok | 760 | (cond ((not ok) (message "Command canceled")) |
| 761 | (if on-each | 761 | (t |
| 762 | (dired-bunch-files (- 10000 (length command)) | 762 | (if on-each |
| 763 | (lambda (&rest files) | 763 | (dired-bunch-files (- 10000 (length command)) |
| 764 | (dired-run-shell-command | 764 | (lambda (&rest files) |
| 765 | (dired-shell-stuff-it command files t arg))) | 765 | (dired-run-shell-command |
| 766 | nil file-list) | 766 | (dired-shell-stuff-it command files t arg))) |
| 767 | ;; execute the shell command | 767 | nil file-list) |
| 768 | (dired-run-shell-command | 768 | ;; execute the shell command |
| 769 | (dired-shell-stuff-it command file-list nil arg))))))) | 769 | (dired-run-shell-command |
| 770 | (dired-shell-stuff-it command file-list nil arg)))))))) | ||
| 770 | 771 | ||
| 771 | ;; Might use {,} for bash or csh: | 772 | ;; Might use {,} for bash or csh: |
| 772 | (defvar dired-mark-prefix "" | 773 | (defvar dired-mark-prefix "" |