Commit 53ebff1f authored by Martin Rudalics's avatar Martin Rudalics
Browse files

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

parent d195726a
......@@ -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>
......
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment