From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 7 Dec 1996 22:19:50 +0000 (+0000)
Subject: (mouse-drag-mode-line): Don't get error
X-Git-Tag: emacs-20.1~3308
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=951e04271194c6274ab925a10464391dcc26a638;p=emacs.git

(mouse-drag-mode-line): Don't get error
about sole window, if we don't actually try to change the size.
---

diff --git a/lisp/mouse.el b/lisp/mouse.el
index c96a2aaca54..d45c04cd9df 100644
--- a/lisp/mouse.el
+++ b/lisp/mouse.el
@@ -198,9 +198,7 @@ This command must be bound to a mouse click."
 	should-enlarge-minibuffer
 	event mouse minibuffer y top bot edges wconfig params growth)
     (setq params (frame-parameters))
-    (if (and (not (setq minibuffer (cdr (assq 'minibuffer params))))
-	     (one-window-p t))
-	(error "Attempt to resize sole window"))
+    (setq minibuffer (cdr (assq 'minibuffer params)))
     (track-mouse
       (progn
 	;; enlarge-window only works on the selected window, so
@@ -256,6 +254,11 @@ This command must be bound to a mouse click."
 		 ;; compute size change needed
 		 (setq growth (- y bot -1)
 		       wconfig (current-window-configuration))
+		 ;; Check for an error case.
+		 (if (and (/= growth 0)
+			  (not minibuffer)
+			  (one-window-p t))
+		     (error "Attempt to resize sole window"))
 		 ;; grow/shrink minibuffer?
 		 (if should-enlarge-minibuffer
 		     (progn