[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 51f5c19 2/2: Make the unflag-p parameter in dired-m
From: |
Lars Ingebrigtsen |
Subject: |
[Emacs-diffs] master 51f5c19 2/2: Make the unflag-p parameter in dired-mark-unmarked-files work |
Date: |
Sun, 21 Jul 2019 11:41:50 -0400 (EDT) |
branch: master
commit 51f5c1943121ffb8763fbb61e06630c2aa20e5c0
Author: Lars Ingebrigtsen <address@hidden>
Commit: Lars Ingebrigtsen <address@hidden>
Make the unflag-p parameter in dired-mark-unmarked-files work
* lisp/dired-x.el (dired-mark-unmarked-files): Make the unflag-p
parameter work (bug#27465).
---
lisp/dired-x.el | 9 ++++++---
1 file changed, 6 insertions(+), 3 deletions(-)
diff --git a/lisp/dired-x.el b/lisp/dired-x.el
index b7ec41a..462fa4e 100644
--- a/lisp/dired-x.el
+++ b/lisp/dired-x.el
@@ -629,9 +629,12 @@ Optional fifth argument CASE-FOLD-P specifies the value of
(let ((dired-marker-char (if unflag-p ?\s dired-marker-char)))
(dired-mark-if
(and
- ;; not already marked
- (= (following-char) ?\s)
- ;; uninteresting
+ (if unflag-p
+ ;; Already marked.
+ (not (= (following-char) ?\s))
+ ;; Not already marked.
+ (= (following-char) ?\s))
+ ;; Interesting.
(let ((fn (dired-get-filename localp t))
;; Match patterns case-insensitively on case-insensitive
;; systems