# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 997369010 0
# Node ID 3cf8f8ea6d0e4fd6b0625b0e4ec0d37c006d00f9
# Parent  c1945c69cde232a15d5a94bbb3873e3b9194cbaf
(mouse-delete-window): Do nothing if frame has just
one window.

diff -r c1945c69cde2 -r 3cf8f8ea6d0e lisp/mouse.el
--- 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)))))