[Emacs-diffs] Changes to emacs/lisp/mouse.el,v [EMACS_22_BASE]

[Martin Rudalics]

CVSROOT:        /sources/emacs
Module name:    emacs
Branch:         EMACS_22_BASE
Changes by:     Martin Rudalics <m061211>       07/07/15 08:29:40

Index: mouse.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/mouse.el,v
retrieving revision 1.315.2.1
retrieving revision 1.315.2.2
diff -u -b -r1.315.2.1 -r1.315.2.2
--- mouse.el    2 Jul 2007 05:40:12 -0000       1.315.2.1
+++ mouse.el    15 Jul 2007 08:29:40 -0000      1.315.2.2
@@ -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)