[elpa] externals/company b16b236 32/46: Fall back to unremapped 'default face :background

[Dmitry Gutov]

branch: externals/company
commit b16b236264af6170a2576d8427a5b28f4e19ae65
Author: Henrik Lissner <henrik@lissner.net>
Commit: Henrik Lissner <henrik@lissner.net>

    Fall back to unremapped 'default face :background
    
    Otherwise, if default is remapped to a list of faces we cannot extract a
    :background from, then we still have a fallback.
---
 company.el | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/company.el b/company.el
index 74d6b6b..09c2d46 100644
--- a/company.el
+++ b/company.el
@@ -2803,7 +2803,8 @@ If SHOW-VERSION is non-nil, show the version in the echo 
area."
     (let* ((nl-face (list
                      :extend t
                      :inverse-video nil
-                     :background (company--face-attribute 'default 
:background)))
+                     :background (or (company--face-attribute 'default 
:background)
+                                     (face-attribute 'default :background nil 
t))))
            (str (apply #'concat
                        (when nl " \n")
                        (cl-mapcan