From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 13 Feb 2006 18:47:18 +0000 (+0000)
Subject: (mouse-drag-mode-line-1): Use mouse-drag-move-window-bottom
X-Git-Tag: emacs-pretest-22.0.90~4164
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ad64cd77b0d31794b2a57c6f25efa5d6138459a6;p=emacs.git

(mouse-drag-mode-line-1): Use mouse-drag-move-window-bottom
for the minibuffer too, but not if resize-mini-windows will interfere.
---

diff --git a/lisp/mouse.el b/lisp/mouse.el
index 9922b0f9aed..3a22fb49b04 100644
--- a/lisp/mouse.el
+++ b/lisp/mouse.el
@@ -481,21 +481,8 @@ MODE-LINE-P non-nil means dragging a mode line; nil means a header line."
 
 		 ;; grow/shrink minibuffer?
 		 (if should-enlarge-minibuffer
-		     (progn
-		       ;; yes.  briefly select minibuffer so
-		       ;; enlarge-window will affect the
-		       ;; correct window.
-		       (select-window minibuffer)
-		       ;; scale back shrinkage if it would
-		       ;; make the minibuffer less than 1
-		       ;; line tall.
-		       (if (and (> growth 0)
-				(< (- (window-height minibuffer)
-				      growth)
-				   1))
-			   (setq growth (1- (window-height minibuffer))))
-		       (enlarge-window (- growth))
-		       (select-window start-event-window))
+		     (unless resize-mini-windows
+		       (mouse-drag-move-window-bottom start-event-window growth))
 		   ;; no.  grow/shrink the selected window
 		   ;(message "growth = %d" growth)
 		   (if mode-line-p