branch: externals/engrave-faces
commit 93fc726a0a01f24146eb9a1fc4a1891fe797b953
Author: TEC <[email protected]>
Commit: TEC <[email protected]>
Check preset faces when merging
---
engrave-faces.el | 4 +++-
1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/engrave-faces.el b/engrave-faces.el
index 4af0fdb..03cbdbf 100644
--- a/engrave-faces.el
+++ b/engrave-faces.el
@@ -135,7 +135,9 @@ output.")
(delq nil
(delq 'unspecified
(mapcar (lambda (face)
- (face-attribute face attr nil
t))
+ (or
+ (plist-get (cdr (assoc face
engrave-faces-preset-styles)) attr)
+ (face-attribute face attr nil
t)))
(delq 'default (if (listp faces)
faces (list faces)))))))))
engrave-faces-attributes-of-interest)))