LGTM.  Thanks!


On Sat, 17 May 2025 at 8:06 pm, Eli Zaretskii <eliz@gnu.org> wrote:

> > From: Jake <jforst.mailman@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
>