mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

(mouse-drag-region): Be smart about which end

Browse source 
gets point and which end gets the mark.
This commit is contained in:
Richard M. Stallman 1996-06-21 16:15:21 +00:00
parent bca55f26b2
commit 6ce2992945
1 changed files with 16 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

19
lisp/mouse.el
View file

@ -574,9 +574,22 @@ remains active. Otherwise, it remains until the next input event."
(cons event unread-command-events)))
(if (not (= (overlay-start mouse-drag-overlay)
(overlay-end mouse-drag-overlay)))
(let (last-command this-command)
(push-mark (overlay-start mouse-drag-overlay) t t)
(goto-char (overlay-end mouse-drag-overlay))
(let* ((stop-point (posn-point (event-end event)))
;; The end that comes from where we ended the drag.
;; Point goes here.
(region-termination
(if (< stop-point start-point)
(overlay-start mouse-drag-overlay)
(overlay-end mouse-drag-overlay)))
;; The end that comes from where we started the drag.
;; Mark goes there.
(region-commencement
(- (+ (overlay-end mouse-drag-overlay)
(overlay-start mouse-drag-overlay))
region-termination))
last-command this-command)
(push-mark region-commencement t t)
(goto-char region-termination)
(copy-region-as-kill (point) (mark t))
(mouse-show-mark)
(mouse-set-region-1))