mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

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

Browse Source 
when handling the terminating event.
This commit is contained in:
Martin Rudalics 2007-07-15 08:31:26 +00:00
parent 82fe1aeda6
commit 1d16d0504b
2 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -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) 2007-07-15 Jeff Miller <jmiller@cablespeed.com> (tiny change)
* calendar/cal-bahai.el (calendar-goto-bahai-date): Add autoload * calendar/cal-bahai.el (calendar-goto-bahai-date): Add autoload

5
lisp/mouse.el
View File

@ -1013,6 +1013,11 @@ should only be used by mouse-drag-region."
(overlay-start mouse-drag-overlay)) (overlay-start mouse-drag-overlay))
region-termination)) region-termination))
last-command this-command) 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) (push-mark region-commencement t t)
(goto-char region-termination) (goto-char region-termination)
(if (not do-mouse-drag-region-post-process) (if (not do-mouse-drag-region-post-process)