[elpa] externals/objed cd7be8b 211/216: Improve objed-extend

[Stefan Monnier]

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

    Improve objed-extend
---
 objed.el | 20 ++++++++++++++++----
 1 file changed, 16 insertions(+), 4 deletions(-)

diff --git a/objed.el b/objed.el
index 8802add..92881de 100644
--- a/objed.el
+++ b/objed.el
@@ -1749,12 +1749,24 @@ Update to object at current side."
 (defun objed-extend ()
   "Extend current object.
 
-This activate the whole object point is currently in and allows
-extending/shrinking the region by moving around using objed
-movement commands."
+This activates the region for current object and allows
+extending/shrinking the region by moving around using regular
+objed movement commands.
+
+The active region will be used as the current object when an
+objed operation is used.
+
+When called and region is already active, the region get copied
+and is deactivated."
   (interactive)
   (if (region-active-p)
-      (deactivate-mark)
+      (progn
+        (copy-region-as-kill
+         (region-beginning)
+         (region-end))
+        (deactivate-mark)
+        (setq this-command 'copy-region-as-kill)
+        (message "Copied current region."))
     (unless objed--extend-cookie
       (setq objed--extend-cookie
             (face-remap-add-relative 'objed-hl