Fix minibuffer resizing.
authorMartin Rudalics <rudalics@gmx.at>
Sat, 22 Oct 2011 09:43:09 +0000 (11:43 +0200)
committerMartin Rudalics <rudalics@gmx.at>
Sat, 22 Oct 2011 09:43:09 +0000 (11:43 +0200)
* mouse.el (mouse-drag-line): Fix minibuffer resizing broken by
last change.

lisp/ChangeLog
lisp/mouse.el

index 42c2a9e..f2d0ec3 100644 (file)
@@ -1,3 +1,8 @@
+2011-10-22  Martin Rudalics  <rudalics@gmx.at>
+
+       * mouse.el (mouse-drag-line): Fix minibuffer resizing broken by
+       last fix.
+
 2011-10-21  Chong Yidong  <cyd@gnu.org>
 
        * progmodes/idlwave.el (idlwave-mode):
index ffa3db7..78a6664 100644 (file)
@@ -406,6 +406,7 @@ must be one of the symbols header, mode, or vertical."
                       (mouse-on-link-p start)))
         (enlarge-minibuffer
          (and (eq line 'mode)
+              (not resize-mini-windows)
               (eq (window-frame minibuffer-window) frame)
               (not (one-window-p t frame))
               (= (nth 1 (window-edges minibuffer-window))
@@ -422,7 +423,8 @@ must be one of the symbols header, mode, or vertical."
        (setq done t)))
      ((eq line 'mode)
       ;; Check whether mode-line can be dragged at all.
-      (when (window-at-side-p window 'bottom)
+      (when (and (window-at-side-p window 'bottom)
+                (not enlarge-minibuffer))
        (setq done t)))
      ((eq line 'vertical)
       ;; Get the window to adjust for the vertical case.