(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 27b32e9f6f66d520f626cd870c515557ecc4e953..5577b94d01a775370f5d82778fad7ce60551ea0b 100644 (file)
--- 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)