ld/yasnippet
1
0
Fork 0
mirror of https://github.com/joaotavora/yasnippet.git synced 2025-12-05 05:05:42 +00:00
Code Issues Packages Projects Releases Wiki Activity

fix: don't require lexical-binding to call transforms with field text

Browse Source
This commit is contained in:
Joao Tavora 2013-10-16 19:00:25 +01:00
parent 33c696516a
commit 26065ae4f5
1 changed files with 6 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
snippet.el
View File

@ -212,13 +212,10 @@ I would need these somewhere in the let* form
(append make-field-forms (append make-field-forms
make-mirror-forms))) make-mirror-forms)))
(defun snippet--transform-lambda (transform-form source-sym) (defun snippet--transform-lambda (transform-form)
`(lambda () `(lambda (field-text)
(funcall ,(or transform-form
#'(lambda (field-text) 'field-text)))
,(or transform-form
'field-text))
(snippet--field-text ,source-sym))))
(defmacro define-snippet (name _args &rest body) (defmacro define-snippet (name _args &rest body)
@ -440,7 +437,8 @@ can be:
(snippet--object-end-marker mirror)) (snippet--object-end-marker mirror))
(save-excursion (save-excursion
(goto-char (snippet--object-start-marker mirror)) (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) (defun snippet--move-to-field (field)
(goto-char (snippet--object-start-marker field)) (goto-char (snippet--object-start-marker field))