From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Sun, 21 Jul 2019 15:40:51 +0000 (+0200)
Subject: Make the unflag-p parameter in dired-mark-unmarked-files work
X-Git-Tag: emacs-27.0.90~1828
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=51f5c1943121ffb8763fbb61e06630c2aa20e5c0;p=emacs.git

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).
---

diff --git a/lisp/dired-x.el b/lisp/dired-x.el
index b7ec41aa95f..462fa4ee152 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