]> git.eshelyaron.com Git - emacs.git/commitdiff
* lisp/mouse.el (mouse-drag-track): Always deactivate the mark before
authorStefan Monnier <monnier@iro.umontreal.ca>
Fri, 1 Feb 2013 23:40:55 +0000 (18:40 -0500)
committerStefan Monnier <monnier@iro.umontreal.ca>
Fri, 1 Feb 2013 23:40:55 +0000 (18:40 -0500)
running the final event's command since that command is in charge of
activating the mark if needed.

Fixes: debbugs:13523
lisp/ChangeLog
lisp/mouse.el

index a1d85b55c25d2780a7f17143674f5865f82464dc..344a8d772daba4f9944be93ee103ff72f02d584b 100644 (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-*
index 9c7bf6f9c36f6eeeb6730a5cea39fd31290b1afc..a1aa104495aa829e542e93d9d179e1c9dbe9ad75 100644 (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)))