(mouse-delete-window): Do nothing if frame has just

one window.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 69c3c18..30da4f3 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2001-08-09  Gerd Moellmann  <gerd@gnu.org>
 
+       * mouse.el (mouse-delete-window): Do nothing if frame has just
+       one window.
+
        * bindings.el (minor-mode-alist): Use mode-line-minor-mode-keymap
        for the minor mode name.
 

diff --git a/lisp/mouse.el b/lisp/mouse.el
index 66d0a92..410ad59 100644 (file)
--- a/lisp/mouse.el
+++ b/lisp/mouse.el
@@ -233,11 +233,10 @@ Use the former if the menu bar is showing, otherwise the latter."
 
 (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)))))