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

diff -r e4415539660a -r 787c85f7fe05 lisp/mouse.el
--- a/lisp/mouse.el	Sun Jul 08 01:40:33 2007 +0000
+++ b/lisp/mouse.el	Sun Jul 08 08:21:13 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)