branch: externals/engrave-faces
commit b6d31d8ca0a5f323e1685f7761cff82efcbcd690
Author: TEC <t...@tecosaur.com>
Commit: TEC <t...@tecosaur.com>

    Account for multiple inherited faces
---
 engrave-faces.el | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/engrave-faces.el b/engrave-faces.el
index 9dd559f..5d52634 100644
--- a/engrave-faces.el
+++ b/engrave-faces.el
@@ -137,7 +137,8 @@ I.e. ([facea :inherit faceb] facec) results in (facea faceb 
facec)"
                      (cons face
                            (let ((inherit (face-attribute face :inherit nil 
nil)))
                              (when (and inherit (not (eq inherit 
'unspecified)))
-                               (engrave-faces-explicit-inheritance (list 
inherit))))))
+                               (engrave-faces-explicit-inheritance
+                                (if (listp inherit) inherit (list 
inherit)))))))
                    faces)))
 
 (defun engrave-faces-attribute-values (faces attribute)

Reply via email to