* lisp/emacs-lisp/cond-star.el (cond*): New Edebug specification.

1 files changed, 7 insertions, 1 deletions

diff --git a/lisp/emacs-lisp/cond-star.el b/lisp/emacs-lisp/cond-star.el
index 33a21602d9b..72b58d91151 100644
--- a/lisp/emacs-lisp/cond-star.el
+++ b/lisp/emacs-lisp/cond-star.el
@@ -92,7 +92,13 @@ passed along to the rest of the clauses in this `cond*' construct.
 
 See `match*' for documentation of the patterns for use in `match*'
 conditions."
-  ;; FIXME: Want an Edebug declaration.
+  (declare
+   (debug (&rest ([&or ("bind*" &rest &or symbolp (symbolp &optional form))
+                       ("bind-and*" &rest &or symbolp (symbolp form) (form))
+                       ("match*" sexp form)
+                       ("pcase*" pcase-PAT form)
+                       form]
+                  body))))
   (cond*-convert clauses))
 
 ;; The following four macros are autoloaded for the sake of syntax