ld/yasnippet
1
0
Fork 0
mirror of https://github.com/joaotavora/yasnippet.git synced 2025-10-13 21:13:04 +00:00
Code Issues Packages Projects Releases Wiki Activity

fix: provide a simple edebug spec for define-snippet

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

8
snippet.el
View File

@ -255,6 +255,14 @@ can be:
* the symbol `:obarray', in which case the symbol NAME in * the symbol `:obarray', in which case the symbol NAME in
interned in the obarray VAL instead of the global obarray. This interned in the obarray VAL instead of the global obarray. This
options is currently unimplemented." options is currently unimplemented."
(declare (debug (&define name sexp &rest &or
("lambda" sexp def-form) ; curiously, function-form
; doesn't work here
functionp
sexp
("mirror" sexp def-form)
("field" sexp form))))
(let* ((sym-tuples (snippet--form-sym-tuples body)) (let* ((sym-tuples (snippet--form-sym-tuples body))
(marker-init-forms (snippet--make-marker-init-forms sym-tuples)) (marker-init-forms (snippet--make-marker-init-forms sym-tuples))
(init-object-forms (snippet--init-field-and-mirror-forms sym-tuples)) (init-object-forms (snippet--init-field-and-mirror-forms sym-tuples))