mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(mouse-drag-region): Use deactivate-mark.

Browse source
This commit is contained in:
Richard M. Stallman 1993-07-21 07:40:12 +00:00
parent b6e1c607fc
commit f767385c90
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/mouse.el
View file

@ -173,7 +173,7 @@ This must be bound to a button-down mouse event."
(move-overlay mouse-drag-overlay
start-point start-point
(window-buffer start-window))
(setq mark-active nil)
(deactivate-mark)
(let (event end end-point)
(track-mouse
(while (progn
@ -221,7 +221,7 @@ This must be bound to a button-down mouse event."
(numberp (posn-point (event-end event))))
(goto-char (posn-point (event-end event))))
(if (= (point) start-point)
(setq mark-active nil)
(deactivate-mark)
(set-mark start-point))
(delete-overlay mouse-drag-overlay))))