# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 743240412 0
# Node ID 3f5f554013645bc9fd44516b0143654db827a29e
# Parent  86d3758ff85bfa72618cd7008e23eb89588ab0d8
(mouse-drag-region): Use deactivate-mark.

diff -r 86d3758ff85b -r 3f5f55401364 lisp/mouse.el
--- a/lisp/mouse.el	Wed Jul 21 04:37:46 1993 +0000
+++ b/lisp/mouse.el	Wed Jul 21 07:40:12 1993 +0000
@@ -173,7 +173,7 @@
     (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 @@
 	       (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))))