Subject: Re: bug#68637: 30.0.50; image-dired-mark-tagged-files and ls -F

From: Manuel Giraud <[email-masked]>
Date: Sat, 27 Jan 2024 17:25:30 +0100

Eli Zaretskii <[email-masked]> writes:

[...]

> Manuel, would you please post a complete patch, with the corresponding
> log message, so we could install this?

Sure.  Here it is.
-- 
Manuel Giraud
>From 1722de2ac01376d17cedb219f82dd304cd21d11a Mon Sep 17 00:00:00 2001
From: Manuel Giraud <[email-masked]>
Date: Sat, 27 Jan 2024 17:23:06 +0100
Subject: [PATCH] [image-dired] 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.
---
 lisp/image/image-dired-dired.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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 @@ image-dired-mark-tagged-files
                       (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)))
-- 
2.43.0