Commit 50e527bc authored by Karl Heuer's avatar Karl Heuer

(mouse-drag-region): Handle scroll off top/bottom.

parent 6e863134
......@@ -236,31 +236,17 @@ release the mouse button. Otherwise, it does not."
(let ((range (mouse-start-end start-point (point) click-count)))
(move-overlay mouse-drag-overlay (car range) (nth 1 range))))
;; Are we moving on a different window on the same frame?
((and (windowp (posn-window end))
(eq (window-frame (posn-window end)) start-frame))
(let ((mouse-row
(+ (nth 1 (window-edges (posn-window end)))
(cdr (posn-col-row end)))))
(t
(let ((mouse-row (cdr (cdr (mouse-position)))))
(cond
((null mouse-row))
((< mouse-row top)
(mouse-scroll-subr
(- mouse-row top) mouse-drag-overlay start-point))
((and (not (eobp))
(>= mouse-row bottom))
(mouse-scroll-subr (1+ (- mouse-row bottom))
mouse-drag-overlay start-point)))))
(t
(let ((mouse-y (cdr (cdr (mouse-position))))
(menu-bar-lines (or (cdr (assq 'menu-bar-lines
(frame-parameters)))
0)))
;; Are we on the menu bar?
(and (integerp mouse-y) (< mouse-y menu-bar-lines)
(mouse-scroll-subr (- mouse-y menu-bar-lines)
mouse-drag-overlay start-point))))))))
mouse-drag-overlay start-point)))))))))
(if (and (eq (get (event-basic-type event) 'event-kind) 'mouse-click)
(eq (posn-window (event-end event)) start-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