From: Manuel Giraud Date: Sat, 27 Jan 2024 16:23:06 +0000 (+0100) Subject: Enable marking tagged with ls -F X-Git-Tag: archive/raspbian/1%30.1+1-3+rpi1^2~2^2~20^2~2776 X-Git-Url: https://dgit.raspbian.org/?a=commitdiff_plain;h=12afe75cf7af99eabf821e40dd2fab2f9c3efcf9;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. --- 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)))