Mercurial > emacs
changeset 23611:4c8718a0fb85
(mouse-drag-region): Fake up a mouse-motion event
if we did not get one for the final move.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 01 Nov 1998 18:17:40 +0000 |
| parents | 73c884a6f03c |
| children | 61519017b94a |
| files | lisp/mouse.el |
| diffstat | 1 files changed, 20 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mouse.el Sun Nov 01 17:47:52 1998 +0000 +++ b/lisp/mouse.el Sun Nov 01 18:17:40 1998 +0000 @@ -585,8 +585,27 @@ (setq end-of-range (overlay-start mouse-drag-overlay))) ((>= mouse-row bottom) (mouse-scroll-subr start-window (1+ (- mouse-row bottom)) - mouse-drag-overlay start-point) +a mouse-drag-overlay start-point) (setq end-of-range (overlay-end mouse-drag-overlay)))))))))) + ;; In case we did not get a mouse-motion event + ;; for the final move of the mouse before a drag event + ;; pretend that we did get one. + (when (and (memq 'drag (event-modifiers (car-safe event))) + (setq end (event-end event) + end-point (posn-point end)) + (eq (posn-window end) start-window) + (integer-or-marker-p end-point)) + + ;; Go to START-POINT first, so that when we move to END-POINT, + ;; if it's in the middle of intangible text, + ;; point jumps in the direction away from START-POINT. + (goto-char start-point) + (goto-char end-point) + (if (zerop (% click-count 3)) + (setq end-of-range (point))) + (let ((range (mouse-start-end start-point (point) click-count))) + (move-overlay mouse-drag-overlay (car range) (nth 1 range)))) + (if (consp event) (let ((fun (key-binding (vector (car event))))) ;; Run the binding of the terminating up-event, if possible.