[elpa] externals/objed 033b5aa 05/59: Exchange point and mark when toggling side selection

[Clemens Radermacher]

branch: externals/objed
commit 033b5aa105c488a13dd5c720ac617a6f502ee72b
Author: Clemens Radermacher <address@hidden>
Commit: Clemens Radermacher <address@hidden>

    Exchange point and mark when toggling side selection
---
 objed.el | 14 ++++++++------
 1 file changed, 8 insertions(+), 6 deletions(-)

diff --git a/objed.el b/objed.el
index a351a5d..c141aae 100644
--- a/objed.el
+++ b/objed.el
@@ -1957,12 +1957,14 @@ back to `objed-initial-object' if no match found."
 
 Default to sexp at point."
   (interactive)
-  (let ((sdiff (abs (- (point) (objed--beg))))
-        (ediff (abs (- (point) (objed--end)))))
-    (cond ((> ediff sdiff)
-           (goto-char (objed--end)))
-          (t
-           (goto-char (objed--beg))))))
+  (if (use-region-p)
+      (exchange-point-and-mark)
+    (let ((sdiff (abs (- (point) (objed--beg))))
+          (ediff (abs (- (point) (objed--end)))))
+      (cond ((> ediff sdiff)
+             (goto-char (objed--end)))
+            (t
+             (goto-char (objed--beg)))))))
 
 (defun objed-exchange-point-and-mark ()
   "Exchange point and mark.