From: Visuwesh <visuweshm@gmail.com>
Date: Thu, 26 Dec 2024 11:49:41 +0000 (+0530)
Subject: Ensure Dired window is selected when reverting buffer
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4c864cfd4e585a82ba69d612bc0dcd3e7adfd28c;p=emacs.git

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 f7e96593b29..e3fcaa03946 100644
--- 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 ()