Commit f767385c authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

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

parent b6e1c607
......@@ -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))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment