mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-06 06:20:55 -08:00
Code Issues Projects Releases Wiki Activity

Enable marking tagged with ls -F

Browse source 
Bug#68637

* lisp/image/image-dired-dired.el (image-dired-mark-tagged-files):
Enable marking tagged for executable and symlink images when
'dired-listing-switches' includes -F.
This commit is contained in:
Manuel Giraud 2024-01-27 17:23:06 +01:00 • committed by Eli Zaretskii
parent 6da9dc9048
commit 12afe75cf7
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lisp/image/image-dired-dired.el
View file

@ -383,7 +383,7 @@ matching tag will be marked in the Dired buffer."
(file-name-directory curr-file))) (file-name-directory curr-file)))
(setq curr-file (file-name-nondirectory curr-file)) (setq curr-file (file-name-nondirectory curr-file))
(goto-char (point-min)) (goto-char (point-min))
(when (search-forward-regexp (format "\\s %s$" curr-file) nil t) (when (search-forward-regexp (format "\\s %s[*@]?$" curr-file) nil t)
(setq hits (+ hits 1)) (setq hits (+ hits 1))
(dired-mark 1)))) (dired-mark 1))))
(message "%d files with matching tag marked" hits))) (message "%d files with matching tag marked" hits)))