changeset 56379:72ec8013c5a1

(mouse-set-region-1): If transient-mark-mode is `identity', change it to `only'.
author Richard M. Stallman <rms@gnu.org>
date Fri, 09 Jul 2004 16:54:04 +0000
parents cc9dcd357544
children dcdd02599cbd
files lisp/mouse.el
diffstat 1 files changed, 2 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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)))