Mercurial > emacs
changeset 78126:c30936b69ac7
(mouse-drag-track): Reset transient-mark-mode to nil
when handling the terminating event.
| author | Martin Rudalics <rudalics@gmx.at> |
|---|---|
| date | Sun, 15 Jul 2007 08:29:40 +0000 |
| parents | f0705c4da65a |
| children | 2f1e1a9450b6 |
| files | lisp/mouse.el |
| diffstat | 1 files changed, 5 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mouse.el Sun Jul 15 04:45:41 2007 +0000 +++ b/lisp/mouse.el Sun Jul 15 08:29:40 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)