From f8ac290945102f2b59a4474bd4c53ba22db6a076 Mon Sep 17 00:00:00 2001
From: Visuwesh <visuweshm@gmail.com>
Date: Sun, 12 Jun 2022 12:35:08 +0200
Subject: [PATCH] * lisp/find-dired.el (find-dired): Make directory clickable.

* lisp/find-dired.el (find-dired): Make the directory line
clickable (bug#55906).
---
 lisp/find-dired.el | 2 ++
 1 file changed, 2 insertions(+)

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)))
-- 
2.39.2