summaryrefslogtreecommitdiff
path: root/lisp/find-dired.el
diff options
context:
space:
mode:
authorVisuwesh <visuweshm@gmail.com>2022-06-12 12:35:08 +0200
committerLars Ingebrigtsen <larsi@gnus.org>2022-06-13 12:29:17 +0200
commitf8ac290945102f2b59a4474bd4c53ba22db6a076 (patch)
treefe2d56f155d977e138cf536a56f3fc73f45989db /lisp/find-dired.el
parenta1a435b3f6c7afa910da2256334471ba49010974 (diff)
downloademacs-f8ac290945102f2b59a4474bd4c53ba22db6a076.tar.gz
* lisp/find-dired.el (find-dired): Make directory clickable.
* lisp/find-dired.el (find-dired): Make the directory line clickable (bug#55906).
Diffstat (limited to 'lisp/find-dired.el')
-rw-r--r--lisp/find-dired.el2
1 files changed, 2 insertions, 0 deletions
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)))