[elpa] externals/setup 894819d 10/19: Drop "none" as argument for :debug

[Stefan Monnier]

branch: externals/setup
commit 894819d11e571fa723c8a00b8c5a8507f0c61bea
Author: Philip K <phil...@posteo.net>
Commit: Philip K <phil...@posteo.net>

    Drop "none" as argument for :debug
---
 setup.el | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

diff --git a/setup.el b/setup.el
index 4030186..411f16b 100644
--- a/setup.el
+++ b/setup.el
@@ -190,13 +190,14 @@ If not given, it is assumed nothing is evaluated."
         (delq (assoc (symbol-name name)
                      setup-edebug-specifications)
               setup-edebug-specifications))
-  (let ((body (cond ((eq (plist-get opts :debug) 'none) nil)
-                    ((plist-get opts :debug))
-                    ('(sexp)))))
+  (let ((body (or (plist-get opts :debug) '(sexp))))
     ;; FIXME: Use `&interpose' in Emacs≥28.
-    (push (if (plist-get opts :repeatable)
-              `(,(symbol-name name) &rest ,@body)
-            `(,(symbol-name name) ,@body))
+    (push `(,(symbol-name name)
+            ,@(and (plist-get opts :repeatable)
+                   '(&rest))
+            ,@(and (get name 'setup-signature)
+                   (or (plist-get opts :debug)
+                       '(sexp))))
           setup-edebug-specifications))
   (put 'setup 'edebug-form-spec
        (append '(&rest &or [symbolp sexp])
@@ -359,7 +360,6 @@ form (prepend VAR), VAL is prepended to VAR."
     `(delq (assq setup-mode minor-mode-alist)
            minor-mode-alist))
   :documentation "Hide the mode-line lighter of the current mode."
-  :debug 'none
   :after-loaded t)
 
 (setup-define :local-set