[elpa] externals/objed 81b9ed9 024/216: Allow to append next kill like in stock Emacs

[Stefan Monnier]

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

    Allow to append next kill like in stock Emacs
---
 objed.el | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/objed.el b/objed.el
index b167eb5..f4f89be 100644
--- a/objed.el
+++ b/objed.el
@@ -634,6 +634,7 @@ object as an argument."
     ;; TODO: support repeated invokation
     (define-key map (kbd "C-u") 'universal-argument)
     (define-key map (kbd "C-SPC") 'set-mark-command)
+    (define-key map (kbd "C-M-w") 'append-next-kill)
     ;; todo: restore object state, too?
     (define-key map (kbd "/") (objed--call-and-switch undo char))
     ;; usual emacs keys which should not trigger reset should be added to
@@ -1973,7 +1974,8 @@ region command."
 (defun objed-copy ()
   "Copy objects."
   (interactive)
-  (when (eq last-command 'kill-region)
+  (when (and (eq last-command 'kill-region)
+            (not (eq real-last-command 'append-next-kill)))
     (objed--goto-next))
   (objed--kill-op 'ignore #'copy-region-as-kill t)
   ;; append on repeat