fix: order of edebug subforms in &or matters

2026-02-04 14:32:26 +00:00 · 2013-10-17 13:14:53 +01:00
parent 0adcad2190
commit 55eaf62fd3
1 changed files with 4 additions and 3 deletions
--- a/snippet.el
+++ b/snippet.el
@@ -308,10 +308,10 @@ can be:
  (declare (debug (&define name sexp &rest &or
                           ;; curiously, function-form doesn't work here
                           ;;
-                           ("lambda" sexp def-form)
-                           sexp
                           ("mirror" sexp def-form)
-                           ("field" sexp))))
+                           ("lambda" sexp def-form)
+                           ("field" sexp &rest sexp)
+                           sexp)))
  `(defun ,name ()
     ,(define--snippet-body body)))

@@ -534,5 +534,6 @@ can be:
 (provide 'snippet)

 ;; Local Variables:
+;; coding: utf-8
 ;; End:
 ;; snippet.el ends here