diff options
| author | Juri Linkov <juri@linkov.net> | 2015-10-30 02:57:38 +0200 |
|---|---|---|
| committer | Juri Linkov <juri@linkov.net> | 2015-10-30 02:57:38 +0200 |
| commit | 83a04da79dfb8c3c36062d092e21a706d2e49b42 (patch) | |
| tree | 7bc2d289cc57e069f5ca561c757d70129f258d6b /lisp/dired.el | |
| parent | dba0659c3b37a413245b424d75e8989b0bb46a07 (diff) | |
| download | emacs-83a04da79dfb8c3c36062d092e21a706d2e49b42.tar.gz | |
* lisp/dired.el (dired-unmark-all-files-query): Declare.
(dired-unmark-all-files): Let-bind it and use instead of ‘query’.
(Bug#21746)
Diffstat (limited to 'lisp/dired.el')
| -rw-r--r-- | lisp/dired.el | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/lisp/dired.el b/lisp/dired.el index c3cad0ccc82..5f0a83afd04 100644 --- a/lisp/dired.el +++ b/lisp/dired.el @@ -3495,6 +3495,9 @@ OLD and NEW are both characters used to mark files." (interactive) (dired-unmark-all-files ?\r)) +;; Bound in dired-unmark-all-files +(defvar dired-unmark-all-files-query) + (defun dired-unmark-all-files (mark &optional arg) "Remove a specific mark (or any mark) from every file. After this command, type the mark character to remove, @@ -3505,6 +3508,7 @@ Type \\[help-command] at that time for help." (save-excursion (let* ((count 0) (inhibit-read-only t) case-fold-search + dired-unmark-all-files-query (string (format "\n%c" mark)) (help-form "\ Type SPC or `y' to unmark one file, DEL or `n' to skip to next, @@ -3516,7 +3520,8 @@ Type SPC or `y' to unmark one file, DEL or `n' to skip to next, (if (or (not arg) (let ((file (dired-get-filename t t))) (and file - (dired-query 'query "Unmark file `%s'? " + (dired-query 'dired-unmark-all-files-query + "Unmark file `%s'? " file)))) (progn (subst-char-in-region (1- (point)) (point) (preceding-char) ?\s) |