# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1085778386 0
# Node ID 9070d5f984ea207675a1ce17cec6e59fd3e7378f
# Parent  7bb617df33dbb4304e056322dc3aa75d2ea9cadf
(mouse-set-region-1): Use temporary transient-mark-mode
after the user marked text with the mouse.

diff -r 7bb617df33db -r 9070d5f984ea lisp/mouse.el
--- a/lisp/mouse.el	Fri May 28 21:05:17 2004 +0000
+++ b/lisp/mouse.el	Fri May 28 21:06:26 2004 +0000
@@ -624,6 +624,8 @@
     (mouse-set-region-1)))
 
 (defun mouse-set-region-1 ()
+  ;; Set transient-mark-mode for a little while.
+  (setq transient-mark-mode (or transient-mark-mode 'lambda))
   (setq mouse-last-region-beg (region-beginning))
   (setq mouse-last-region-end (region-end))
   (setq mouse-last-region-tick (buffer-modified-tick)))