emacs-emojify

commit 97265b9de50b22f821ad8bd25f964613f585b1fc
parent 81ccd4c8bf34dcb101a08f8e6fc700498624c7cd
Author: Iqbal Ansari <iqbalansari02@yahoo.com>
Date:   Sun, 29 Nov 2015 21:47:47 +0530

Lookup parent faces, when getting face's background

Diffstat:
M
emojify.el
 | 
4
++--

1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/emojify.el b/emojify.el
@@ -585,7 +585,7 @@ and end of region respectively."
 (defun emojify--overlay-face (beg)
   (let* ((overlays-with-face (seq-filter (lambda (overlay)
                                            (and (overlay-get overlay 'face)
-                                                (face-background (overlay-get overlay 'face))))
+                                                (face-background (overlay-get overlay 'face) nil 'default)))
                                          (overlays-at beg)))
          (top-overlay (car (seq-sort (lambda (overlay1 overlay2)
                                        (cond ((not (overlay-get overlay2 'priority)) t)
@@ -594,7 +594,7 @@ and end of region respectively."
                                                    (overlay-get overlay2 'priority)))))
                                      overlays-with-face))))
     (when top-overlay
-      (face-background (overlay-get top-overlay 'face)))))
+      (face-background (overlay-get top-overlay 'face) nil 'default))))
 
 (defun emojify--get-image-background (beg end)
   "Get the color to be used as background for emoji between BEG and END."