* lisp/dired.el (dired-unmark-all-files-query): Declare.

(dired-unmark-all-files): Let-bind it and use instead of ‘query’.
(Bug#21746)

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)