mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-03 08:30:09 +00:00
Code Issues Releases Activity

* lisp/mouse.el (mouse-drag-track): Always deactivate the mark before

Browse Source 
running the final event's command since that command is in charge of
activating the mark if needed.

Fixes: debbugs:13523
This commit is contained in:
Stefan Monnier 2013-02-01 18:40:55 -05:00
parent dc2bc29527
commit 13841bfcc2
2 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/ChangeLog
View File

@ -1,3 +1,9 @@
2013-02-01 Stefan Monnier <monnier@iro.umontreal.ca>
* mouse.el (mouse-drag-track): Always deactivate the mark before
running the final event's command since that command is in charge of
activating the mark if needed (bug#13523).
2013-02-01 Juri Linkov <juri@jurta.org>
* replace.el (perform-replace): Move let-bindings of isearch-*

2
lisp/mouse.el
View File

@ -880,9 +880,9 @@ DO-MOUSE-DRAG-REGION-POST-PROCESS should only be used by
(copy-region-as-kill (mark) (point)))))
;; Otherwise, run binding of terminating up-event.
(deactivate-mark)
(if do-multi-click
(goto-char start-point)
(deactivate-mark)
(unless moved-off-start
(pop-mark)))