From 26065ae4f500af268d125375aad1fc35d099875c Mon Sep 17 00:00:00 2001 From: Joao Tavora Date: Wed, 16 Oct 2013 19:00:25 +0100 Subject: [PATCH] fix: don't require lexical-binding to call transforms with field text --- snippet.el | 14 ++++++-------- 1 file changed, 6 insertions(+), 8 deletions(-) diff --git a/snippet.el b/snippet.el index 440b269..2ab0264 100644 --- a/snippet.el +++ b/snippet.el @@ -212,13 +212,10 @@ I would need these somewhere in the let* form (append make-field-forms make-mirror-forms))) -(defun snippet--transform-lambda (transform-form source-sym) - `(lambda () - (funcall - #'(lambda (field-text) - ,(or transform-form - 'field-text)) - (snippet--field-text ,source-sym)))) +(defun snippet--transform-lambda (transform-form) + `(lambda (field-text) + ,(or transform-form + 'field-text))) (defmacro define-snippet (name _args &rest body) @@ -440,7 +437,8 @@ can be: (snippet--object-end-marker mirror)) (save-excursion (goto-char (snippet--object-start-marker mirror)) - (insert (funcall (snippet--mirror-transform mirror)))))) + (insert (funcall (snippet--mirror-transform mirror) + (snippet--field-text (snippet--mirror-source mirror))))))) (defun snippet--move-to-field (field) (goto-char (snippet--object-start-marker field))