fix: provide a simple edebug spec for define-snippet

2025-10-13 21:13:04 +00:00 · 2013-10-16 19:01:55 +01:00 · 2013-10-16 19:01:55 +01:00 · 6039bc667f
commit 6039bc667f
parent 26065ae4f5
1 changed files with 8 additions and 0 deletions
--- 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))