[elpa] master 321f277 76/90: Fix color blending for composite faces

[Oleh Krehel]

branch: master
commit 321f2776898409778439351369dc8af88f2a0f80
Author: Oleh Krehel <ohwoeo...@gmail.com>
Commit: Oleh Krehel <ohwoeo...@gmail.com>

    Fix color blending for composite faces
    
    colir.el (colir-blend-face-background): Try to find the face among the
    properties.
    
    Re #151
---
 colir.el |    2 ++
 1 files changed, 2 insertions(+), 0 deletions(-)

diff --git a/colir.el b/colir.el
index f5ce0ae..7eacbbd 100644
--- a/colir.el
+++ b/colir.el
@@ -76,6 +76,8 @@ See also `font-lock-append-text-property'."
     (while (/= start end)
       (setq next (next-single-property-change start 'face object end)
             prev (get-text-property start 'face object))
+      (when (listp prev)
+        (setq prev (cl-find-if #'atom prev)))
       (if prev
           (let ((background-prev (face-background prev)))
             (progn