From: Manuel Giraud <manuel@ledu-giraud.fr>
Date: Sat, 27 Jan 2024 16:23:06 +0000 (+0100)
Subject: Enable marking tagged with ls -F
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c81e97dd0453e621c16488bc1739bbea6b09878d;p=emacs.git

Enable marking tagged with ls -F

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.

(cherry picked from commit 12afe75cf7af99eabf821e40dd2fab2f9c3efcf9)
---

diff --git a/lisp/image/image-dired-dired.el b/lisp/image/image-dired-dired.el
index f4778d8e121..7219a106ca8 100644
--- a/lisp/image/image-dired-dired.el
+++ b/lisp/image/image-dired-dired.el
@@ -383,7 +383,7 @@ matching tag will be marked in the Dired buffer."
                       (file-name-directory curr-file)))
         (setq curr-file (file-name-nondirectory curr-file))
         (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))
           (dired-mark 1))))
     (message "%d files with matching tag marked" hits)))