[elpa] externals/objed 6a91b16 023/166: Improve mc exit behavior

[Clemens Radermacher]

branch: externals/objed
commit 6a91b16fcc7c2b2861d3cd34ecb3007e67fccb60
Author: Clemens Radermacher <address@hidden>
Commit: Clemens Radermacher <address@hidden>

    Improve mc exit behavior
---
 objed.el | 17 ++++++++++-------
 1 file changed, 10 insertions(+), 7 deletions(-)

diff --git a/objed.el b/objed.el
index 1c9161f..ac29d4a 100644
--- a/objed.el
+++ b/objed.el
@@ -3458,7 +3458,7 @@ and RANGE hold the object position data."
           ((eq 'mc exit)
            (when (boundp 'multiple-cursors-mode)
              (if (> (mc/num-cursors) 1)
-                 (multiple-cursors-mode 1)
+                 (run-at-time 0 nil 'multiple-cursors-mode)
                (multiple-cursors-mode 0)))
            (objed--exit-objed))
           ((eq 'current exit)
@@ -3623,13 +3623,16 @@ ON got applied."
 
 (defun objed--do-objects (action exit)
   "Apply ACTION on marked objects and exit with EXIT."
-  (let ((ovs objed--marked-ovs)
-        (appendp (memq action '(kill-region copy-region-as-kill)))
-        (n 0)
-        (mc (and (eq exit 'mc)
-                 (require 'multiple-cursors nil t)))
-        (pos (point)))
+  (let* ((ovs objed--marked-ovs)
+         (appendp (memq action '(kill-region copy-region-as-kill)))
+         (n 0)
+         (mc (and (eq exit 'mc)
+                  (require 'multiple-cursors nil t)))
+         (pos (set-marker (make-marker) (overlay-start (car ovs)))))
+    ;; move to last ov
+    (goto-char pos)
     (save-excursion
+      ;; TODO: why not bottom up, was there a reason?
       (dolist (ov (nreverse (copy-sequence ovs)))
         (let ((beg (overlay-start ov))
               (end (overlay-end ov)))