[elpa] externals/setup c9bc47a 16/19: Simplify edebug specification generation

[Stefan Monnier]

branch: externals/setup
commit c9bc47ae7787b83ae98cec7766112b6977fccdb7
Author: Philip K <philipk@posteo.net>
Commit: Philip K <philipk@posteo.net>

    Simplify edebug specification generation
---
 setup.el | 17 ++++++++---------
 1 file changed, 8 insertions(+), 9 deletions(-)

diff --git a/setup.el b/setup.el
index 596a00c..e7bd07c 100644
--- a/setup.el
+++ b/setup.el
@@ -190,15 +190,14 @@ If not given, it is assumed nothing is evaluated."
         (delq (assoc (symbol-name name)
                      setup-edebug-specifications)
               setup-edebug-specifications))
-  (let ((body (or (plist-get opts :debug) '(sexp))))
-    ;; FIXME: Use `&interpose' in Emacs≥28.
-    (push `(,(symbol-name name)
-            ,@(and (plist-get opts :repeatable)
-                   '(&rest))
-            ,@(and (get name 'setup-signature)
-                   (or (plist-get opts :debug)
-                       '(sexp))))
-          setup-edebug-specifications))
+  ;; FIXME: Use `&interpose' in Emacs≥28.
+  (push `(,(symbol-name name)
+          ,@(and (or (plist-get opts :repeatable)
+                     (null (plist-get opts :debug)))
+                 '(&rest))
+          ,@(or (plist-get opts :debug)
+                '(sexp)))
+        setup-edebug-specifications)
   (put 'setup 'edebug-form-spec
        (append '(&rest &or [symbolp sexp])
                setup-edebug-specifications