# HG changeset patch
# User Martin Rudalics <rudalics@gmx.at>
# Date 1184488180 0
# Node ID c30936b69ac735016e4b4f88c606e600fad7b7bc
# Parent  f0705c4da65a1bc711d44cf9225597b13be23528
(mouse-drag-track): Reset transient-mark-mode to nil
when handling the terminating event.

diff -r f0705c4da65a -r c30936b69ac7 lisp/mouse.el
--- a/lisp/mouse.el	Sun Jul 15 04:45:41 2007 +0000
+++ b/lisp/mouse.el	Sun Jul 15 08:29:40 2007 +0000
@@ -1013,6 +1013,11 @@
 			      (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)