mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-19 18:13:55 +00:00
Code Issues Releases Activity

(mouse-delete-window): If the frame has just one window,

Browse Source 
bury the current buffer instead.
This commit is contained in:
Richard M. Stallman 1998-07-29 05:41:04 +00:00
parent 0a67052fd0
commit a926a0fab5
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lisp/mouse.el
View File

@ -123,10 +123,13 @@
(defun mouse-delete-window (click)
"Delete the window you click on.
This must be bound to a mouse click."
If the frame has just one window, bury the current buffer instead.
This command must be bound to a mouse click."
(interactive "e")
(mouse-minibuffer-check click)
(delete-window (posn-window (event-start click))))
(if (one-window-p t)
(bury-buffer)
(mouse-minibuffer-check click)
(delete-window (posn-window (event-start click)))))
(defun mouse-select-window (click)
"Select the window clicked on; don't move point."