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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 86ae2d0667930974c83cd727c21e401f441d4a4a..c29f9cd4c7dd88a8e498f92105ee71c307c4a72c 100644 (file)
--- 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 78a666419b638865cdcf97b6a8f04c37ef7e122b..9b1cf48ccdc5466f916ac65b9698ff3190369283 100644 (file)
--- 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