Commit 5915523a authored by Eli Zaretskii's avatar Eli Zaretskii
Browse files

(mouse-drag-window-above): Verify that the found window overlaps with the

given window in the horizontal dimension.
parent a9d25c79
2005-12-31 Lennart Borgman <lennart.borgman.073@student.lu.se> (tiny change)
* mouse.el (mouse-drag-window-above): Verify that the found window
overlaps with the given window in the horizontal dimension.
2005-12-31 Eli Zaretskii <eliz@gnu.org>
 
* Makefile.in (cvs-update): New target.
......
......@@ -355,14 +355,21 @@ This command must be bound to a mouse click."
(defun mouse-drag-window-above (window)
"Return the (or a) window directly above WINDOW.
That means one whose bottom edge is at the same height as WINDOW's top edge."
(let ((top (nth 1 (window-edges window)))
(let ((start-top (nth 1 (window-edges window)))
(start-left (nth 0 (window-edges window)))
(start-right (nth 2 (window-edges window)))
(start-window window)
above-window)
(setq window (previous-window window 0))
(while (and (not above-window) (not (eq window start-window)))
(if (= (+ (window-height window) (nth 1 (window-edges window)))
top)
(setq above-window window))
(let ((left (nth 0 (window-edges window)))
(right (nth 2 (window-edges window))))
(when (and (= (+ (window-height window) (nth 1 (window-edges window)))
start-top)
(or (and (<= left start-left) (<= start-right right))
(and (<= start-left left) (<= left start-right))
(and (<= start-left right) (<= right start-right))))
(setq above-window window)))
(setq window (previous-window window)))
above-window))
......
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