From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Fri, 28 May 2004 21:06:26 +0000 (+0000)
Subject: (mouse-set-region-1): Use temporary transient-mark-mode
X-Git-Tag: ttn-vms-21-2-B4~6037
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a5809dbd7f8b54c78219bf96feef190d24765925;p=emacs.git

(mouse-set-region-1): Use temporary transient-mark-mode
after the user marked text with the mouse.
---

diff --git a/lisp/mouse.el b/lisp/mouse.el
index 76098f45f1a..621b517e2fe 100644
--- a/lisp/mouse.el
+++ b/lisp/mouse.el
@@ -624,6 +624,8 @@ This should be bound to a mouse drag event."
     (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)))