Mercurial > emacs

diff lisp/mouse.el @ 38763:3cf8f8ea6d0e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(mouse-delete-window): Do nothing if frame has just one window.
author Gerd Moellmann <gerd@gnu.org>
date Thu, 09 Aug 2001 14:56:50 +0000
parents 7b449aec29d2
children f12d1ec614e9
line wrap: on
line diff
--- a/lisp/mouse.el	Thu Aug 09 14:54:05 2001 +0000
+++ b/lisp/mouse.el	Thu Aug 09 14:56:50 2001 +0000
@@ -233,11 +233,10 @@
 
 (defun mouse-delete-window (click)
   "Delete the window you click on.
-If the frame has just one window, bury the current buffer instead.
+Do nothing if the frame has just one window.
 This command must be bound to a mouse click."
   (interactive "e")
-  (if (one-window-p t)
-      (bury-buffer)
+  (unless (one-window-p t)
     (mouse-minibuffer-check click)
     (delete-window (posn-window (event-start click)))))