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

when handling the terminating event.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0faca7d41bd5d42294c65d9fc1b431c722b80df5..a18a61fe29b3731a503e6cea654cc0aa6a3c26ec 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2007-07-15  Martin Rudalics  <rudalics@gmx.at>
+
+       * mouse.el (mouse-drag-track): Reset transient-mark-mode to nil
+       when handling the terminating event.
+
 2007-07-15  Jeff Miller  <jmiller@cablespeed.com>  (tiny change)
 
        * calendar/cal-bahai.el (calendar-goto-bahai-date): Add autoload

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)