branch: externals/engrave-faces
commit 32fb760ca86c8aa1152fef019f8bfc2903f7a66e
Author: TEC <t...@tecosaur.com>
Commit: TEC <t...@tecosaur.com>
Don't record height/strike-through of default face
---
engrave-faces.el | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/engrave-faces.el b/engrave-faces.el
index fef009e033..7b723650e4 100644
--- a/engrave-faces.el
+++ b/engrave-faces.el
@@ -370,7 +370,8 @@ Unconditionally returns nil when FACES is default."
(let ((attr-val (when (facep (car face-style))
(face-attribute (car face-style) attr
nil t))))
(when (or (engrave-faces--check-nondefault attr
attr-val)
- (eq (car face-style) 'default))
+ (and (eq (car face-style) 'default)
+ (not (memq attr '(:height
:strike-through)))))
(list attr attr-val))))
engrave-faces-attributes-of-interest))))
engrave-faces-preset-styles))
