743 |
(mouse-scroll-subr start-window (1+ (- mouse-row bottom)) |
(mouse-scroll-subr start-window (1+ (- mouse-row bottom)) |
744 |
mouse-drag-overlay start-point) |
mouse-drag-overlay start-point) |
745 |
(setq end-of-range (overlay-end mouse-drag-overlay)))))))))) |
(setq end-of-range (overlay-end mouse-drag-overlay)))))))))) |
746 |
|
|
747 |
;; In case we did not get a mouse-motion event |
;; In case we did not get a mouse-motion event |
748 |
;; for the final move of the mouse before a drag event |
;; for the final move of the mouse before a drag event |
749 |
;; pretend that we did get one. |
;; pretend that we did get one. |
1860 |
;;;!! ;; (abs-x (car pos)) |
;;;!! ;; (abs-x (car pos)) |
1861 |
;;;!! ;; (abs-y (cdr pos)) |
;;;!! ;; (abs-y (cdr pos)) |
1862 |
;;;!! ;; (relative-coordinate |
;;;!! ;; (relative-coordinate |
1863 |
;;;!! ;; (coordinates-in-window-p (` ((, abs-x) (, abs-y))) |
;;;!! ;; (coordinates-in-window-p `(,abs-x ,abs-y) |
1864 |
;;;!! ;; (selected-window))) |
;;;!! ;; (selected-window))) |
1865 |
;;;!! ;; (begin-reg nil) |
;;;!! ;; (begin-reg nil) |
1866 |
;;;!! ;; (end-reg nil) |
;;;!! ;; (end-reg nil) |