[elpa] externals/compat 0c14c42bc1 50/84: Copy edebug specifications instead of referencing

[ELPA Syncer]

branch: externals/compat
commit 0c14c42bc1b28670e6f13c46a439d1481bf4145c
Author: Philip Kaludercic <philipk@posteo.net>
Commit: Philip Kaludercic <philipk@posteo.net>

    Copy edebug specifications instead of referencing
---
 compat-25.el | 5 ++++-
 compat-26.el | 4 +++-
 2 files changed, 7 insertions(+), 2 deletions(-)

diff --git a/compat-25.el b/compat-25.el
index c4e75fe08d..d0df7d8a96 100644
--- a/compat-25.el
+++ b/compat-25.el
@@ -163,7 +163,10 @@ Evaluate each binding in turn, stopping if a binding value 
is nil.
 If all are non-nil, return the value of the last form in BODY.
 
 The variable list SPEC is the same as in `if-let'."
-  (declare (indent 1) (debug if-let))
+  (declare (indent 1)
+           (debug ([&or (symbolp form)
+                        (&rest [&or symbolp (symbolp form) (form)])]
+                   body)))
   `(compat--if-let ,spec ,(macroexp-progn body)))
 
 ;;;; Defined in subr-x.el
diff --git a/compat-26.el b/compat-26.el
index a21b903b93..d823a75b61 100644
--- a/compat-26.el
+++ b/compat-26.el
@@ -385,7 +385,9 @@ This is like `if-let' but doesn't handle a VARLIST of the 
form
   "Bind variables according to VARLIST and conditionally evaluate BODY.
 This is like `when-let' but doesn't handle a VARLIST of the form
 \(SYMBOL SOMETHING) specially."
-  (declare (indent 1) (debug if-let*))
+  (declare (indent 1)
+           (debug ((&rest [&or symbolp (symbolp form) (form)])
+                   body)))
   (let ((empty (make-symbol "s"))
         (last t) list)
     (dolist (var varlist)