From da23e607d33260c9aabaa3d136722a45457930dc Mon Sep 17 00:00:00 2001 From: Juri Linkov Date: Mon, 6 Dec 2021 19:24:09 +0200 Subject: Select the right buffer for event in context-menu functions (bug#9923) * lisp/mouse.el (context-menu-region): * lisp/progmodes/prog-mode.el (prog-context-menu): Switch to the buffer displayed by the window of the event before using syntax-ppss, char-after. --- lisp/progmodes/prog-mode.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'lisp/progmodes') diff --git a/lisp/progmodes/prog-mode.el b/lisp/progmodes/prog-mode.el index 4997c2746f2..e43f2ff90b5 100644 --- a/lisp/progmodes/prog-mode.el +++ b/lisp/progmodes/prog-mode.el @@ -87,7 +87,9 @@ 'mark-whole-buffer) ;; Include text-mode select menu only in strings and comments. - (when (nth 8 (save-excursion (syntax-ppss (posn-point (event-end click))))) + (when (nth 8 (save-excursion + (with-current-buffer (window-buffer (posn-window (event-end click))) + (syntax-ppss (posn-point (event-end click)))))) (text-mode-context-menu menu click)) menu) -- cgit v1.2.3