From 42ee24ed38db25d3b2c78c612f48a969e2be5a64 Mon Sep 17 00:00:00 2001 From: Martin Rudalics Date: Sat, 22 Oct 2011 11:43:09 +0200 Subject: [PATCH] Fix minibuffer resizing. * mouse.el (mouse-drag-line): Fix minibuffer resizing broken by last change. --- lisp/ChangeLog | 5 +++++ lisp/mouse.el | 4 +++- 2 files changed, 8 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 42c2a9ebfb4..f2d0ec37b32 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2011-10-22 Martin Rudalics + + * mouse.el (mouse-drag-line): Fix minibuffer resizing broken by + last fix. + 2011-10-21 Chong Yidong * progmodes/idlwave.el (idlwave-mode): diff --git a/lisp/mouse.el b/lisp/mouse.el index ffa3db738ac..78a666419b6 100644 --- a/lisp/mouse.el +++ b/lisp/mouse.el @@ -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. -- 2.39.5