From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 9 Jul 2004 16:54:04 +0000 (+0000)
Subject: (mouse-set-region-1): If transient-mark-mode
X-Git-Tag: ttn-vms-21-2-B4~5521
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=cc47c660fa466456862d701a14e20ec247bafda8;p=emacs.git

(mouse-set-region-1): If transient-mark-mode
is `identity', change it to `only'.
---

diff --git a/lisp/mouse.el b/lisp/mouse.el
index 7f9d080478a..b73967b99dc 100644
--- a/lisp/mouse.el
+++ b/lisp/mouse.el
@@ -625,7 +625,8 @@ This should be bound to a mouse drag event."
 
 (defun mouse-set-region-1 ()
   ;; Set transient-mark-mode for a little while.
-  (setq transient-mark-mode (or transient-mark-mode 'only))
+  (if (memq transient-mark-mode '(nil identity))
+      (setq transient-mark-mode 'only))
   (setq mouse-last-region-beg (region-beginning))
   (setq mouse-last-region-end (region-end))
   (setq mouse-last-region-tick (buffer-modified-tick)))