mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 21:20:53 -08:00
Code Issues Projects Releases Wiki Activity

(mouse-drag-region): Fake up a mouse-motion event

Browse source 
if we did not get one for the final move.
This commit is contained in:
Richard M. Stallman 1998-11-01 18:17:40 +00:00
parent 0f82d9d807
commit 2e3329a537
1 changed files with 20 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

21
lisp/mouse.el
View file

@ -585,8 +585,27 @@ remains active. Otherwise, it remains until the next input event."
(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.