mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

Make the unflag-p parameter in dired-mark-unmarked-files work

Browse source 
* lisp/dired-x.el (dired-mark-unmarked-files): Make the unflag-p
parameter work (bug#27465).
This commit is contained in:
Lars Ingebrigtsen 2019-07-21 17:40:51 +02:00
parent ca08815943
commit 51f5c19431
1 changed files with 6 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

9
lisp/dired-x.el
View file

@ -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