Ensure Dired window is selected when reverting buffer

* lisp/dired.el (dired--make-directory-clickable): Ensure the
Dired window is selected.  This prevents erroneously reverting a
non-Dired buffer.  (Bug#74700)

(cherry picked from commit bdc21b246cdb6fe3d977222ab7566cfdf889a38c)

diff --git a/lisp/dired.el b/lisp/dired.el
index f7e96593b298be909be8fa01c54e46fc39daba39..e3fcaa039467e8656900c39b0bccbf88d0b7e9b7 100644 (file)
--- a/lisp/dired.el
+++ b/lisp/dired.el
@@ -2081,8 +2081,10 @@ mouse-2: visit this file in other window"
            `(mouse-face highlight
              help-echo "mouse-1: re-read this buffer's directory"
              keymap ,(define-keymap
-                       "<mouse-2>" #'revert-buffer
-                       "<follow-link>" 'follow-link
+                       "<mouse-2>" (lambda ()
+                                     (interactive "@")
+                                     (revert-buffer))
+                       "<follow-link>" 'mouse-face
                        "RET" #'revert-buffer))))))))
 
 (defun dired--get-ellipsis-length ()