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)