[nongnu] elpa/evil-goggles 02a8072435 011/225: Use evil faces for delete and yank

[ELPA Syncer]

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

    Use evil faces for delete and yank
---
 evil-goggles.el | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/evil-goggles.el b/evil-goggles.el
index 37c4051012..f343b40c11 100644
--- a/evil-goggles.el
+++ b/evil-goggles.el
@@ -25,7 +25,10 @@
 (defvar evil-goggles-show-for 0.200) ;; .100 or .200 seem best
 
 (defcustom evil-goggles-faces-alist
-  '((evil-delete . (:underline t)))
+  `(
+    ( evil-delete . evil-ex-substitute-matches ) ;; isearch-fail
+    ( evil-yank . evil-ex-substitute-replacement )
+    )
   "Association list of faces to use for different commands")
 
 (defcustom evil-goggles-default-face
@@ -34,7 +37,7 @@
 
 (defun evil-goggles--face (command)
   (or
-   (assoc command evil-goggles-faces-alist)
+   (assoc-default command evil-goggles-faces-alist)
    evil-goggles-default-face))
 
 (defun evil-goggles--show (beg end face)