[nongnu] elpa/evil-goggles 15261c2683 005/225: Add yank

[ELPA Syncer]

branch: elpa/evil-goggles
commit 15261c268326cf7edaec3a946cfa633ad3a46c63
Author: Evgeni Kolev <evgenysw@gmail.com>
Commit: Evgeni Kolev <evgenysw@gmail.com>

    Add yank
---
 evil-goggles.el | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/evil-goggles.el b/evil-goggles.el
index c339b3dcb5..77955c2cb4 100644
--- a/evil-goggles.el
+++ b/evil-goggles.el
@@ -62,6 +62,11 @@
         (end (nth 1 args)))
     (evil-goggles--generic-advice beg end orig-fun args 'region)))
 
+(defun evil-goggles--evil-yank-advice (orig-fun &rest args)
+  (let ((beg (nth 0 args))
+        (end (nth 1 args)))
+    (evil-goggles--generic-advice beg end orig-fun args 'diff-added)))
+
 (defvar evil-goggles--hooks (make-hash-table))
 
 (defun evil-goggles--advice-add (fun advice-fun)
@@ -80,6 +85,7 @@
    (evil-goggles-mode
     (evil-goggles--advice-add 'evil-delete 'evil-goggles--evil-delete-advice)
     (evil-goggles--advice-add 'evil-indent 'evil-goggles--evil-indent-advice)
+    (evil-goggles--advice-add 'evil-yank   'evil-goggles--evil-yank-advice))
    (t
     (evil-goggles--advice-remove-all)
     )))