GNU bug report logs - #78455
30.0.92; Dired-Hide-Details mode doesn't work in `find-lisp-find-dired' buffers

Previous Next

Full log

Message #11 received at 78455 <at> debbugs.gnu.org (full text, mbox):

From: Eli Zaretskii <eliz <at> gnu.org>
To: Jake <jforst.mailman <at> gmail.com>
Cc: 78455 <at> debbugs.gnu.org
Subject: Re: bug#78455: 30.0.92;
 Dired-Hide-Details mode doesn't work in `find-lisp-find-dired' buffers
Date: Sat, 17 May 2025 13:36:37 +0300

> From: Jake <jforst.mailman <at> gmail.com>
> Date: Fri, 16 May 2025 13:44:28 +0000
> 
> M-x dired-hide-details-mode (bound to `(') has no effect in *Find Lisp Dired* buffers produced by M-x
> find-lisp-find-dired.

Thanks.  Does the patch below give good results?

diff --git a/lisp/find-lisp.el b/lisp/find-lisp.el
index 5f6b56e..ddfc7e9 100644
--- a/lisp/find-lisp.el
+++ b/lisp/find-lisp.el
@@ -304,14 +304,16 @@ find-lisp-find-dired-insert-file
 
 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

Previous Next

GNU bug tracking system
Copyright (C) 1999 Darren O. Benham, 1997,2003 nCipher Corporation Ltd, 1994-97 Ian Jackson.