From 6039bc667f5fddc609c1a5cddd93ab645879c784 Mon Sep 17 00:00:00 2001 From: Joao Tavora Date: Wed, 16 Oct 2013 19:01:55 +0100 Subject: [PATCH] fix: provide a simple edebug spec for define-snippet --- snippet.el | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/snippet.el b/snippet.el index 2ab0264..b4a64da 100644 --- a/snippet.el +++ b/snippet.el @@ -255,6 +255,14 @@ can be: * the symbol `:obarray', in which case the symbol NAME in interned in the obarray VAL instead of the global obarray. This 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)) (marker-init-forms (snippet--make-marker-init-forms sym-tuples)) (init-object-forms (snippet--init-field-and-mirror-forms sym-tuples))