From: Visuwesh Date: Sun, 26 Jun 2022 15:30:04 +0000 (+0200) Subject: Make in the mode line more careful X-Git-Tag: emacs-29.0.90~1447^2~1446 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=cd6ce7e546e6d2ed1918a1d20341c1e4c9050a9a;p=emacs.git 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). --- 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."