[elpa] externals/objed de2d6e1 162/216: Toggle for repeating objed-extend

[Stefan Monnier]

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

    Toggle for repeating objed-extend
---
 objed.el | 24 +++++++++++++-----------
 1 file changed, 13 insertions(+), 11 deletions(-)

diff --git a/objed.el b/objed.el
index a587196..0efa4e6 100644
--- a/objed.el
+++ b/objed.el
@@ -1691,17 +1691,19 @@ This activate the whole object point is currently in 
and allows
 extending/shrinking the region by moving around using objed
 movement commands."
   (interactive)
-  (unless objed--extend-cookie
-    (setq objed--extend-cookie
-          (face-remap-add-relative 'objed-hl
-                                   'objed-extend)))
-  (unless (= (point) (objed--end))
-    (goto-char (objed--beg)))
-  (push-mark (if (or (>= (point) (objed--end))
-                     (eq objed--object 'char))
-                 (objed--beg)
-               (objed--end))
-             t t))
+  (if (region-active-p)
+      (deactivate-mark)
+    (unless objed--extend-cookie
+      (setq objed--extend-cookie
+            (face-remap-add-relative 'objed-hl
+                                     'objed-extend)))
+    (unless (= (point) (objed--end))
+      (goto-char (objed--beg)))
+    (push-mark (if (or (>= (point) (objed--end))
+                       (eq objed--object 'char))
+                   (objed--beg)
+                 (objed--end))
+               t t)))
 
 (defun objed-include-trailing-ws ()
   "Include trailing ws for current object."