* 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.

Fixes: debbugs:13523

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a1d85b55c25d2780a7f17143674f5865f82464dc..344a8d772daba4f9944be93ee103ff72f02d584b 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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-*

diff --git a/lisp/mouse.el b/lisp/mouse.el
index 9c7bf6f9c36f6eeeb6730a5cea39fd31290b1afc..a1aa104495aa829e542e93d9d179e1c9dbe9ad75 100644 (file)
--- a/lisp/mouse.el
+++ b/lisp/mouse.el
@@ -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)))