From: Martin Rudalics <rudalics@gmx.at>
Date: Sun, 8 Jul 2007 08:21:13 +0000 (+0000)
Subject: (mouse-drag-track): Reset transient-mark-mode to nil
X-Git-Tag: emacs-pretest-23.0.90~12006
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=177ffe92bfbea69c11934aadc97c12312938469c;p=emacs.git

(mouse-drag-track): Reset transient-mark-mode to nil
when handling the terminating event.
---

diff --git a/lisp/mouse.el b/lisp/mouse.el
index 27b32e9f6f6..5577b94d01a 100644
--- a/lisp/mouse.el
+++ b/lisp/mouse.el
@@ -1013,6 +1013,11 @@ should only be used by mouse-drag-region."
 			      (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)