From: Eli Zaretskii <eliz@gnu.org>
Date: Sat, 17 May 2025 13:46:07 +0000 (+0300)
Subject: Support 'dired-hide-details-mode' in find-lisp.el
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a99ac8159fa776e6aca7fbc886e75c47ae5ee663;p=emacs.git

Support 'dired-hide-details-mode' in find-lisp.el

* lisp/find-lisp.el (find-lisp-find-dired-insert-file): Call
'dired-insert-set-properties' to support 'dired-hide-details-mode'
in the resulting Dired display.  (Bug#78455)

(cherry picked from commit e05f76667d5e723d5a817848ca2db1252827778a)
---

diff --git a/lisp/find-lisp.el b/lisp/find-lisp.el
index 5f6b56e5f00..ddfc7e9a7b3 100644
--- a/lisp/find-lisp.el
+++ b/lisp/find-lisp.el
@@ -304,14 +304,16 @@ FILE is a file or a directory name.
 
 This function heeds `dired-actual-switches'."
   (set-buffer buffer)
-  (insert find-lisp-line-indent
-          (find-lisp-format
-           (propertize file 'dired-filename t)
-           (file-attributes file 'string)
-           (or (and dired-actual-switches
-                    (split-string-and-unquote dired-actual-switches))
-               (list ""))
-           nil)))
+  (let ((pt (point)))
+    (insert find-lisp-line-indent
+            (find-lisp-format
+             (propertize file 'dired-filename t)
+             (file-attributes file 'string)
+             (or (and dired-actual-switches
+                      (split-string-and-unquote dired-actual-switches))
+                 (list ""))
+             nil))
+    (dired-insert-set-properties pt (point))))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; Lifted from ls-lisp. We don't want to require it, because that