# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 737497943 0
# Node ID 02c75b605550136f9444261e5f003d3e7367957e
# Parent  2a9665f8ffe91b41817f4b410a0a8d699c31711e
(mouse-set-region): Call set-mark to activate mark.

diff -r 2a9665f8ffe9 -r 02c75b605550 lisp/mouse.el
--- a/lisp/mouse.el	Sat May 15 20:05:36 1993 +0000
+++ b/lisp/mouse.el	Sat May 15 20:32:23 1993 +0000
@@ -111,6 +111,7 @@
 	     (eq (framep (selected-frame)) 'x))
 	(sit-for 1))
     (push-mark)
+    (set-mark (point))
     (if (numberp (posn-point end))
 	(goto-char (posn-point end)))))