mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

Make <mouse-2> in mode line more careful as well

Browse source 
* lisp/mouse.el (mouse-delete-other-windows): Only delete other
windows if the user didn't move the cursor off the
mode-line (bug#56198).
This commit is contained in:
Visuwesh 2022-06-26 17:45:45 +02:00 • committed by Lars Ingebrigtsen
parent cd6ce7e546
commit 9e08c04798
1 changed files with 6 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

9
lisp/mouse.el
View file

@ -687,10 +687,13 @@ This command must be bound to a mouse click."
(switch-to-buffer buf)
(delete-window window)))
(defun mouse-delete-other-windows ()
(defun mouse-delete-other-windows (click)
"Delete all windows except the one you click on."
(interactive "@")
(delete-other-windows))
(interactive "e")
(when (and (eq (posn-area (event-end click)) 'mode-line)
(eq (posn-window (event-start click))
(posn-window (event-end click))))
(delete-other-windows (posn-window (event-start click)))))
(defun mouse-split-window-vertically (click)
"Select Emacs window mouse is on, then split it vertically in half.