[elpa] externals/objed 62c2dee 118/216: Improve move object code

[Stefan Monnier]

branch: externals/objed
commit 62c2deed908aac527ee1dc9256dee9586d968db2
Author: Clemera <address@hidden>
Commit: Clemera <address@hidden>

    Improve move object code
---
 objed.el | 8 +++-----
 1 file changed, 3 insertions(+), 5 deletions(-)

diff --git a/objed.el b/objed.el
index b332749..8eadf52 100644
--- a/objed.el
+++ b/objed.el
@@ -2259,8 +2259,7 @@ Swaps the current object with the next one."
     (insert next)
 
     (goto-char (- nend (length current)))
-    (objed--update-current-object
-     (objed-make-object :beg (point) :end nend))))
+    (objed--update-current-object)))
 
 
 (defun objed-move-object-backward ()
@@ -2283,10 +2282,9 @@ Swaps the current object with the previous one."
     (apply #'delete-region (objed--current prevo))
     (goto-char (objed--beg prevo))
     (insert current)
+    (goto-char pbeg)
+    (objed--update-current-object)))
 
-    (objed--update-current-object
-     (objed-make-object :beg pbeg :end (point)))
-    (goto-char (objed--beg))))
 
 
 (defun objed--switch-and-move (o dir)