[elpa] externals/objed a0a8f81 158/216: Improve exchange point and mark

[Stefan Monnier]

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

    Improve exchange point and mark
---
 objed.el | 14 ++++++++++++--
 1 file changed, 12 insertions(+), 2 deletions(-)

diff --git a/objed.el b/objed.el
index d0ea535..3ce0aa0 100644
--- a/objed.el
+++ b/objed.el
@@ -1678,9 +1678,19 @@ Default to sexp at point."
            (objed--skip-ws)))))
 
 (defun objed-exchange-point-and-mark ()
+  "Exchange point and mark.
+
+Update to object at current side."
   (interactive)
-  (exchange-point-and-mark)
-  (objed--update-current-object))
+  (when (region-active-p)
+    (when (= (point) (region-end))
+      (goto-char (objed--end)))
+    (exchange-point-and-mark)
+    (if (= (point) (region-end))
+        (objed--skip-ws t)
+      (objed--skip-ws))
+    (objed--update-current-object)))
+
 
 (defun objed-toggle-state ()
   "Toggle state of object."