Account for multiple inherited faces

tecosaur · Apr 30, 2021 · b6d31d8 · b6d31d8
1 parent 14eddbe
commit b6d31d8
Showing 1 changed file with 2 additions and 1 deletion.
diff --git 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)