emacs/gnu.emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2026-09-10 07:46:51 -04:00
Code Issues Actions Packages Projects Releases Wiki Activity

Improve the previous fix in toggle-window-dedicated

Browse source 
* lisp/window.el (toggle-window-dedicated):
Don't select the window by mouse click in another window.
This keeps the currently selected window like for
toggling other indicators on the mode-line (bug#81178).
This commit is contained in:
Juri Linkov 2026-06-26 18:37:07 +03:00
parent f2c4c1029d
commit 1381479572
1 changed files with 7 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lisp/window.el
View file

@ -7993,7 +7993,13 @@ variable to t, strong dedication will be used by default and
\\[universal-argument] will make the window weakly dedicated.
See the info node `(elisp)Dedicated Windows' for more details."
(interactive "@i\nP\np")
(interactive "i\nP\np")
(when (and (not window) (mouse-event-p last-input-event))
(let ((event-window (posn-window (event-start last-input-event))))
(unless (eq (selected-window) event-window)
(setq window event-window))))
(setq window (window-normalize-window window))
(setq flag (cond
((consp flag)