[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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master 83a04da: * lisp/dired.el (dired-unmark-all-files-query): Declare.,
Juri Linkov <=