[elpa] externals/engrave-faces 95d25d4 36/36: minor refactor: face extraction from text property

[ELPA Syncer]

branch: externals/engrave-faces
commit 95d25d45b14c655a130c15a3b95280762de86ce6
Author: TEC <tec@tecosaur.com>
Commit: TEC <tec@tecosaur.com>

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