]> git.eshelyaron.com Git - emacs.git/commitdiff
Support 'dired-hide-details-mode' in find-lisp.el
authorEli Zaretskii <eliz@gnu.org>
Sat, 17 May 2025 13:46:07 +0000 (16:46 +0300)
committerEshel Yaron <me@eshelyaron.com>
Wed, 21 May 2025 06:06:31 +0000 (08:06 +0200)
* 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)

lisp/find-lisp.el

index 5f6b56e5f00034553efb64ae75e7e06a96eb62e0..ddfc7e9a7b317255aa34fb4e07efeaf4863683ee 100644 (file)
@@ -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