From 4c864cfd4e585a82ba69d612bc0dcd3e7adfd28c Mon Sep 17 00:00:00 2001
From: Visuwesh <visuweshm@gmail.com>
Date: Thu, 26 Dec 2024 17:19:41 +0530
Subject: [PATCH] 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)
---
 lisp/dired.el | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

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 ()
-- 
2.39.5