[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 791694c5fe 3/3: * lisp/mouse.el (context-menu-map): Select clicke
From: |
Juri Linkov |
Subject: |
master 791694c5fe 3/3: * lisp/mouse.el (context-menu-map): Select clicked window (bug#53249). |
Date: |
Sat, 15 Jan 2022 13:37:58 -0500 (EST) |
branch: master
commit 791694c5fe86b8c9ab5cb593bd5e050aa185aa3a
Author: Juri Linkov <juri@linkov.net>
Commit: Juri Linkov <juri@linkov.net>
* lisp/mouse.el (context-menu-map): Select clicked window (bug#53249).
---
lisp/mouse.el | 2 ++
1 file changed, 2 insertions(+)
diff --git a/lisp/mouse.el b/lisp/mouse.el
index 82424e3e24..502683d3d1 100644
--- a/lisp/mouse.el
+++ b/lisp/mouse.el
@@ -324,6 +324,8 @@ the function `context-menu-filter-function'."
(fun (mouse-posn-property (event-start click)
'context-menu-function)))
+ (select-window (posn-window (event-start click)))
+
(if (functionp fun)
(setq menu (funcall fun menu click))
(run-hook-wrapped 'context-menu-functions