[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/setup 894819d 10/19: Drop "none" as argument for :debug
From: |
Stefan Monnier |
Subject: |
[elpa] externals/setup 894819d 10/19: Drop "none" as argument for :debug |
Date: |
Mon, 15 Mar 2021 17:26:27 -0400 (EDT) |
branch: externals/setup
commit 894819d11e571fa723c8a00b8c5a8507f0c61bea
Author: Philip K <philipk@posteo.net>
Commit: Philip K <philipk@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
- [elpa] externals/setup aa9bad8 05/19: Drop unused setup-indent property, (continued)
- [elpa] externals/setup aa9bad8 05/19: Drop unused setup-indent property, Stefan Monnier, 2021/03/15
- [elpa] externals/setup 44d2cfd 09/19: Ignore package.el files, Stefan Monnier, 2021/03/15
- [elpa] externals/setup d2e31e7 01/19: Replaced CC0 LICENSE with GPL, Stefan Monnier, 2021/03/15
- [elpa] externals/setup bb11fa8 06/19: Avoid reconstructing entire edebug specification, Stefan Monnier, 2021/03/15
- [elpa] externals/setup 0e4995f 15/19: Use fenced code block for example, Stefan Monnier, 2021/03/15
- [elpa] externals/setup 7fddc97 17/19: Explain usage of keywords for local macros, Stefan Monnier, 2021/03/15
- [elpa] externals/setup 8ca0d20 18/19: Bump version to 0.1.1, Stefan Monnier, 2021/03/15
- [elpa] externals/setup c9bc47a 16/19: Simplify edebug specification generation, Stefan Monnier, 2021/03/15
- [elpa] externals/setup 39accbf 19/19: Mention GitHub mirror, Stefan Monnier, 2021/03/15
- [elpa] externals/setup 578f7bb 04/19: Update setup-define docstring, Stefan Monnier, 2021/03/15
- [elpa] externals/setup 894819d 10/19: Drop "none" as argument for :debug,
Stefan Monnier <=
- [elpa] externals/setup d9a5850 02/19: Manually specify macro arity via :repeatable, Stefan Monnier, 2021/03/15
- [elpa] externals/setup 1bfca33 03/19: Avoid manual signature specification via help-function-arglist, Stefan Monnier, 2021/03/15
- [elpa] externals/setup fc958ad 08/19: Rename :needs argument to executable, Stefan Monnier, 2021/03/15
- [elpa] externals/setup 295e173 12/19: Update README, Stefan Monnier, 2021/03/15
- [elpa] externals/setup 9bd5f5b 14/19: Fix markdown code syntax, Stefan Monnier, 2021/03/15
- [elpa] externals/setup e8a5ac7 07/19: Rename :hook argument to function, Stefan Monnier, 2021/03/15
- [elpa] externals/setup 5e24fe1 11/19: Decrease required Emacs version to 24.4, Stefan Monnier, 2021/03/15
- [elpa] externals/setup 9d9f5ef 13/19: Rename arguments to avoid manual :signatures specifications, Stefan Monnier, 2021/03/15