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

    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)))
 

Reply via email to