Fix color blending for composite faces

colir.el (colir-blend-face-background): Try to find the face among the
properties.

Re #151

diff --git a/colir.el b/colir.el
index f5ce0aef8ac31248a2979b66a85960134b9a29a1..7eacbbd12b5f8a913eb486ff414a7abbd60b7af3 100644 (file)
--- 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