branch: externals/company
commit b16b236264af6170a2576d8427a5b28f4e19ae65
Author: Henrik Lissner <hen...@lissner.net>
Commit: Henrik Lissner <hen...@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
