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