From 51f5c1943121ffb8763fbb61e06630c2aa20e5c0 Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Sun, 21 Jul 2019 17:40:51 +0200 Subject: [PATCH] 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 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 -- 2.39.2