From: Richard M. Stallman <rms@gnu.org>
Date: Wed, 21 Jul 1993 07:40:12 +0000 (+0000)
Subject: (mouse-drag-region): Use deactivate-mark.
X-Git-Tag: emacs-19.34~11651
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f767385c90ecd380ac86e29c3fc8f83c6d15bf5a;p=emacs.git

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

diff --git a/lisp/mouse.el b/lisp/mouse.el
index 868018436fb..fc00dddbb4f 100644
--- a/lisp/mouse.el
+++ b/lisp/mouse.el
@@ -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))))