branch: externals/engrave-faces
commit 95d25d45b14c655a130c15a3b95280762de86ce6
Author: TEC <[email protected]>
Commit: TEC <[email protected]>
minor refactor: face extraction from text property
Use lexical scope when evaluating.
---
engrave-faces.el | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/engrave-faces.el b/engrave-faces.el
index 363e109..541d4dd 100644
--- a/engrave-faces.el
+++ b/engrave-faces.el
@@ -163,8 +163,8 @@ If a POSTPROCESSOR function is provided, it is called
before saving."
(let ((prop (get-text-property (point) 'face)))
(cond
((null prop) 'default)
- ((and (listp prop)
- (eq (car prop) 'quote)) (eval prop))
+ ((and (listp prop) (eq (car prop) 'quote))
+ (eval prop t))
(t prop)))
text)
engraved-buf))
