Add support for passing REGISTER and COUNT to :yank

1 files changed, 18 insertions, 1 deletions

diff --git a/evil-commands.el b/evil-commands.el
index acb23fa..e1c0311 100644
--- a/evil-commands.el
+++ b/evil-commands.el
@@ -1440,7 +1440,7 @@ be joined with the previous line if and only if
 (evil-define-operator evil-ex-delete (beg end type register count yank-handler)
   "The Ex delete command.
 \[BEG,END]delete [REGISTER] [COUNT]"
-  (interactive "<R><d/><y>")
+  (interactive "<R><xc/><y>")
   (when count
     ;; with COUNT, :delete should go the end of the region and delete
     ;; COUNT lines from there
@@ -1454,6 +1454,23 @@ be joined with the previous line if and only if
           type 'line))
   (evil-delete beg end type register yank-handler))
 
+(evil-define-operator evil-ex-yank (beg end type register count yank-handler)
+  "The Ex yank command.
+\[BEG,END]yank [REGISTER] [COUNT]"
+  (interactive "<R><xc/><y>")
+  (when count
+    ;; with COUNT, :yank should go the end of the region and yank
+    ;; COUNT lines from there
+    (setq beg (save-excursion
+                (goto-char end)
+                (forward-line -1)
+                (point))
+          end (save-excursion
+                (goto-char end)
+                (point-at-bol count))
+          type 'line))
+  (evil-yank beg end type register yank-handler))
+
 (evil-define-operator evil-change
   (beg end type register yank-handler delete-func)
   "Change text from BEG to END with TYPE.