diff options
| author | Martin Rudalics <rudalics@gmx.at> | 2007-07-08 08:21:13 +0000 |
|---|---|---|
| committer | Martin Rudalics <rudalics@gmx.at> | 2007-07-08 08:21:13 +0000 |
| commit | 177ffe92bfbea69c11934aadc97c12312938469c (patch) | |
| tree | f6dc50268d71261b8db54d4bbdbb20e3a7ee0097 /lisp/mouse.el | |
| parent | 236e165a5a78f40f74a8c5739dc1ba9485b87ec6 (diff) | |
| download | emacs-177ffe92bfbea69c11934aadc97c12312938469c.tar.gz | |
(mouse-drag-track): Reset transient-mark-mode to nil
when handling the terminating event.
Diffstat (limited to 'lisp/mouse.el')
| -rw-r--r-- | lisp/mouse.el | 5 |
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) |