[Emacs-diffs] /srv/bzr/emacs/emacs-24 r111217: * lisp/mouse.el (mouse-drag-track): Always deactivate the mark before

[Stefan Monnier]

------------------------------------------------------------
revno: 111217
fixes bug: http://debbugs.gnu.org/cgi/bugreport.cgi?bug=13523
committer: Stefan Monnier <address@hidden>
branch nick: emacs-24
timestamp: Fri 2013-02-01 18:40:55 -0500
message:
  * lisp/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.
modified:
  lisp/ChangeLog
  lisp/mouse.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-02-01 23:38:41 +0000
+++ b/lisp/ChangeLog    2013-02-01 23:40:55 +0000
@@ -1,3 +1,9 @@
+2013-02-01  Stefan Monnier  <address@hidden>
+
+       * 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  <address@hidden>
 
        * replace.el (perform-replace): Move let-bindings of isearch-*

=== modified file 'lisp/mouse.el'
--- a/lisp/mouse.el     2013-01-30 17:14:24 +0000
+++ b/lisp/mouse.el     2013-02-01 23:40:55 +0000
@@ -880,9 +880,9 @@
                     (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)))