branch: externals/engrave-faces
commit c2ad032e384c4288ba62ca5bba65de2cf9612aa6
Author: TEC <t...@tecosaur.com>
Commit: TEC <t...@tecosaur.com>
Allow .-merge-attributes to work with single face
Instead of only accepting a list of faces.
---
engrave-faces.el | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/engrave-faces.el b/engrave-faces.el
index e51f079..5b69c21 100644
--- a/engrave-faces.el
+++ b/engrave-faces.el
@@ -123,7 +123,7 @@ output.")
(defun engrave-faces-merge-attributes (faces &optional attributes)
"Find the final ATTRIBUTES for text with FACES."
- (setq faces (engrave-faces-explicit-inheritance faces))
+ (setq faces (engrave-faces-explicit-inheritance (if (listp faces) faces
(list faces))))
(apply #'append
(mapcar (lambda (attr)
(list attr (car (engrave-faces-attribute-values faces
attr))))
