[elpa] externals/objed 09cca2c 028/166: Allow numeric prefix arg for kill/delete op

[Clemens Radermacher]

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

    Allow numeric prefix arg for kill/delete op
---
 objed.el | 31 ++++++++++++++++++++++++-------
 1 file changed, 24 insertions(+), 7 deletions(-)

diff --git a/objed.el b/objed.el
index f4b30b9..c52a594 100644
--- a/objed.el
+++ b/objed.el
@@ -2503,15 +2503,32 @@ region command."
                     arg))))
     (objed--do cmd rcmd)))
 
-(defun objed-kill ()
-  "Kill objects."
-  (interactive)
-  (objed--do #'kill-region))
+(defun objed-kill (&optional times)
+  "Kill object(s).
+
+Kill marked objects or TIMES instances of current
+object (defaults to 1)."
+  (interactive "p")
+  (if objed--marked-ovs
+      (objed--do #'kill-region)
+    (let ((times (or times 1)))
+      (dotimes (_ times)
+        (objed--do #'kill-region)
+        (undo-boundary)
+        (setq last-command #'kill-region)))))
+
+(defun objed-delete (&optional times)
+  "Delete object(s).
 
-(defun objed-delete ()
-  "Delete objects."
+Delete marked objects or TIMES instances of current
+object (defaults to 1)."
   (interactive)
-  (objed--do #'delete-region))
+  (if objed--marked-ovs
+      (objed--do #'delete-region)
+    (let ((times (or times 1)))
+      (dotimes (_ times)
+        (objed--do #'delete-region)
+        (undo-boundary)))))
 
 
 (defvar objed--append-do-append nil)