(mouse-drag-track): Reset transient-mark-mode to nil

when handling the terminating event.

1 files changed, 5 insertions, 0 deletions

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)