[elpa] master 4235ffc 092/272: colir.el (colir-blend-face-background): Improve

[Oleh Krehel]

branch: master
commit 4235ffc0d4409519f7b4bdc97f84eb379f23162f
Author: Oleh Krehel <address@hidden>
Commit: Oleh Krehel <address@hidden>

    colir.el (colir-blend-face-background): Improve
    
    Add a `facep' check. It improves the foreground modification of
    `ivy-current-match'.
---
 colir.el |    6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/colir.el b/colir.el
index e11ef7d..792033f 100644
--- a/colir.el
+++ b/colir.el
@@ -77,11 +77,11 @@ Optional argument OBJECT is the string or buffer containing 
the text.
 See also `font-lock-append-text-property'."
   (let (next prev)
     (while (/= start end)
-      (setq next (next-single-property-change start 'face object end)
-            prev (get-text-property start 'face object))
+      (setq next (next-single-property-change start 'face object end))
+      (setq prev (get-text-property start 'face object))
       (when (listp prev)
         (setq prev (cl-find-if #'atom prev)))
-      (if prev
+      (if (facep prev)
           (let ((background-prev (face-background prev)))
             (progn
               (put-text-property