emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] master 83a04da: * lisp/dired.el (dired-unmark-all-files-qu


From: Juri Linkov
Subject: [Emacs-diffs] master 83a04da: * lisp/dired.el (dired-unmark-all-files-query): Declare.
Date: Fri, 30 Oct 2015 00:58:29 +0000

branch: master
commit 83a04da79dfb8c3c36062d092e21a706d2e49b42
Author: Juri Linkov <address@hidden>
Commit: Juri Linkov <address@hidden>

    * lisp/dired.el (dired-unmark-all-files-query): Declare.
    
    (dired-unmark-all-files): Let-bind it and use instead of ‘query’.
    (Bug#21746)
---
 lisp/dired.el |    7 ++++++-
 1 files changed, 6 insertions(+), 1 deletions(-)

diff --git a/lisp/dired.el b/lisp/dired.el
index c3cad0c..5f0a83a 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)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]