From ad64cd77b0d31794b2a57c6f25efa5d6138459a6 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 13 Feb 2006 18:47:18 +0000 Subject: [PATCH] (mouse-drag-mode-line-1): Use mouse-drag-move-window-bottom for the minibuffer too, but not if resize-mini-windows will interfere. --- lisp/mouse.el | 17 ++--------------- 1 file changed, 2 insertions(+), 15 deletions(-) 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 -- 2.39.2