From: Visuwesh <visuweshm@gmail.com>
Date: Sun, 12 Jun 2022 10:35:08 +0000 (+0200)
Subject: * lisp/find-dired.el (find-dired): Make directory clickable.
X-Git-Tag: emacs-29.0.90~1910^2~45
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f8ac290945102f2b59a4474bd4c53ba22db6a076;p=emacs.git

* lisp/find-dired.el (find-dired): Make directory clickable.

* lisp/find-dired.el (find-dired): Make the directory line
clickable (bug#55906).
---

diff --git a/lisp/find-dired.el b/lisp/find-dired.el
index c04545e44e9..8c1e684b7ea 100644
--- a/lisp/find-dired.el
+++ b/lisp/find-dired.el
@@ -241,6 +241,8 @@ it finishes, type \\[kill-find]."
     ;; Subdir headlerline must come first because the first marker in
     ;; subdir-alist points there.
     (insert "  " dir ":\n")
+    (when dired-make-directory-clickable
+      (dired--make-directory-clickable))
     ;; Make second line a ``find'' line in analogy to the ``total'' or
     ;; ``wildcard'' line.
     (let ((point (point)))