branch: externals/objed commit 09cca2c9f3e9e6e0f9def5a0c9297133d956f2a9 Author: Clemens Radermacher <clem...@posteo.net> Commit: Clemens Radermacher <clem...@posteo.net>
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)