In mouse-drag-line correctly use window-in-direction.

2 files changed, 5 insertions, 4 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 86ae2d06679..c29f9cd4c7d 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -12,7 +12,7 @@
 2011-10-22  Martin Rudalics  <rudalics@gmx.at>
 
         * mouse.el (mouse-drag-line): Fix minibuffer resizing broken by
-        last fix.
+        last fix.  Use window-in-direction correctly.
 
 2011-10-21  Chong Yidong  <cyd@gnu.org>
 
diff --git a/lisp/mouse.el b/lisp/mouse.el
index 78a666419b6..9b1cf48ccdc 100644
--- a/lisp/mouse.el
+++ b/lisp/mouse.el
@@ -419,8 +419,9 @@ must be one of the symbols header, mode, or vertical."
     (cond
      ((eq line 'header)
       ;; Check whether header-line can be dragged at all.
-      (when (window-at-side-p window 'top)
-        (setq done t)))
+      (if (window-at-side-p window 'top)
+          (setq done t)
+        (setq window (window-in-direction 'above window t))))
      ((eq line 'mode)
       ;; Check whether mode-line can be dragged at all.
       (when (and (window-at-side-p window 'bottom)
@@ -436,7 +437,7 @@ must be one of the symbols header, mode, or vertical."
                 window
               ;; If the scroll bar is on the start-event window's left,
               ;; adjust the window on the left of it.
-              (window-in-direction 'left window)))))
+              (window-in-direction 'left window t)))))
 
     ;; Start tracking.
     (track-mouse