branch: externals/engrave-faces
commit d4b95cebdca1ec637c713c3abc8aa211c96d2978
Author: TEC <t...@tecosaur.com>
Commit: TEC <t...@tecosaur.com>
Replace apply append with mapcan
---
engrave-faces.el | 7 +++----
1 file changed, 3 insertions(+), 4 deletions(-)
diff --git a/engrave-faces.el b/engrave-faces.el
index 5d52634..a6ba153 100644
--- a/engrave-faces.el
+++ b/engrave-faces.el
@@ -124,10 +124,9 @@ output.")
(defun engrave-faces-merge-attributes (faces &optional attributes)
"Find the final ATTRIBUTES for text with 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))))
- (or attributes engrave-faces-attributes-of-interest))))
+ (mapcan (lambda (attr)
+ (list attr (car (engrave-faces-attribute-values faces attr))))
+ (or attributes engrave-faces-attributes-of-interest)))
(defun engrave-faces-explicit-inheritance (faces)
"Expand :inherit for each face in FACES.
