emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/engrave-faces b6d31d8 14/36: Account for multiple inher


From: ELPA Syncer
Subject: [elpa] externals/engrave-faces b6d31d8 14/36: Account for multiple inherited faces
Date: Tue, 31 Aug 2021 01:57:26 -0400 (EDT)

branch: externals/engrave-faces
commit b6d31d8ca0a5f323e1685f7761cff82efcbcd690
Author: TEC <tec@tecosaur.com>
Commit: TEC <tec@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

[Prev in Thread] Current Thread [Next in Thread]