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

53ebff1f · Martin Rudalics · d195726a · 53ebff1f · 53ebff1f
Commit 53ebff1f authored Oct 22, 2011 by Martin Rudalics
Hide whitespace changes
Inline Side-by-side

Showing with 5 additions and 4 deletions

lisp/ChangeLog lisp/ChangeLog +1 -1

lisp/mouse.el lisp/mouse.el +4 -3

No files found.
--- 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>


--- 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