# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1089392044 0
# Node ID 72ec8013c5a1b5d477975a1256fd33e949599049
# Parent  cc9dcd357544d96610bcf6298e89f153f096c249
(mouse-set-region-1): If transient-mark-mode
is `identity', change it to `only'.

diff -r cc9dcd357544 -r 72ec8013c5a1 lisp/mouse.el
--- a/lisp/mouse.el	Fri Jul 09 16:08:17 2004 +0000
+++ b/lisp/mouse.el	Fri Jul 09 16:54:04 2004 +0000
@@ -625,7 +625,8 @@
 
 (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)))