From cd6ce7e546e6d2ed1918a1d20341c1e4c9050a9a Mon Sep 17 00:00:00 2001 From: Visuwesh Date: Sun, 26 Jun 2022 17:30:04 +0200 Subject: [PATCH] Make in the mode line more careful * lisp/mouse.el (mouse-delete-window): Only delete the window if the user hasn't moved point out of the mode line before releasing the button (bug#56198). --- lisp/mouse.el | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/lisp/mouse.el b/lisp/mouse.el index 82c8a146932..3b33ba817b2 100644 --- a/lisp/mouse.el +++ b/lisp/mouse.el @@ -655,7 +655,13 @@ This command must be bound to a mouse click." (interactive "e") (unless (one-window-p t) (mouse-minibuffer-check click) - (delete-window (posn-window (event-start click))))) + ;; Only delete the window if the user hasn't moved point out of + ;; the mode line before releasing the button. + (when (and (eq (posn-area (event-end click)) + 'mode-line) + (eq (posn-window (event-end click)) + (posn-window (event-start click)))) + (delete-window (posn-window (event-start click)))))) (defun mouse-select-window (click) "Select the window clicked on; don't move point." -- 2.39.5