Mercurial > emacs

changeset 93549:b615c4d2a14d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(mouse-set-region-1): Save the old value of transient-mark-mode. (mouse-drag-track): Ignore the now-obsolete value `identity' for transient-mark-mode.
author Chong Yidong <cyd@stupidchicken.com>
date Wed, 02 Apr 2008 20:16:33 +0000
parents 715d9d088f88
children d4564d8c8835
files lisp/mouse.el
diffstat 1 files changed, 5 insertions(+), 7 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/mouse.el	Wed Apr 02 20:16:10 2008 +0000
+++ b/lisp/mouse.el	Wed Apr 02 20:16:33 2008 +0000
@@ -691,8 +691,11 @@
 
 (defun mouse-set-region-1 ()
   ;; Set transient-mark-mode for a little while.
-  (if (memq transient-mark-mode '(nil identity))
-      (setq transient-mark-mode 'only))
+  (unless (eq (car-safe transient-mark-mode) 'only)
+    (setq transient-mark-mode
+	  (cons 'only
+		(unless (eq transient-mark-mode 'lambda)
+		  transient-mark-mode))))
   (setq mouse-last-region-beg (region-beginning))
   (setq mouse-last-region-end (region-end))
   (setq mouse-last-region-tick (buffer-modified-tick)))
@@ -1029,11 +1032,6 @@
 			      (overlay-start mouse-drag-overlay))
 			   region-termination))
 		       last-command this-command)
-		  (when (eq transient-mark-mode 'identity)
-		    ;; Reset `transient-mark-mode' to avoid expanding the region
-		    ;; while scrolling (compare thread on "Erroneous selection
-		    ;; extension ..." on bug-gnu-emacs from 2007-06-10).
-		    (setq transient-mark-mode nil))
 		  (push-mark region-commencement t t)
 		  (goto-char region-termination)
 		  (if (not do-mouse-drag-region-post-process)