diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2019-10-16 04:44:22 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2019-10-16 04:44:22 +0200 |
| commit | a1dbb81f1808194da1b3f2af29beef704dcd1f5a (patch) | |
| tree | e11356d175bea8c289b92008cc9bcc5e4c8f56de /lisp/emacs-lisp/inline.el | |
| parent | 7fd1093d28e8be4683f45000fa9c0440cbe8182c (diff) | |
| download | emacs-a1dbb81f1808194da1b3f2af29beef704dcd1f5a.tar.gz | |
Fix some &rest body edebug specs
* lisp/ses.el (ses--letref):
* lisp/emacs-lisp/crm.el (crm--completion-command): Fix edebug
&rest body spec (bug#28747).
* lisp/emacs-lisp/easy-mmode.el (easy-mmode-define-navigation):
* lisp/emacs-lisp/inline.el (inline--leteval)
(inline--letlisteval, inline-letevals):
Diffstat (limited to 'lisp/emacs-lisp/inline.el')
| -rw-r--r-- | lisp/emacs-lisp/inline.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/emacs-lisp/inline.el b/lisp/emacs-lisp/inline.el index 39f8e9b5947..ffad6e8de71 100644 --- a/lisp/emacs-lisp/inline.el +++ b/lisp/emacs-lisp/inline.el @@ -90,12 +90,12 @@ (error "inline-error can only be used within define-inline")) (defmacro inline--leteval (_var-exp &rest _body) - (declare (indent 1) (debug (sexp &rest body))) + (declare (indent 1) (debug (sexp body))) ;; BEWARE: if we're here it's presumably via macro-expansion of ;; inline-letevals, so signal the error in terms of the user's code. (error "inline-letevals can only be used within define-inline")) (defmacro inline--letlisteval (_list &rest _body) - (declare (indent 1) (debug (sexp &rest body))) + (declare (indent 1) (debug (sexp body))) ;; BEWARE: if we're here it's presumably via macro-expansion of ;; inline-letevals, so signal the error in terms of the user's code. (error "inline-letevals can only be used within define-inline")) @@ -110,7 +110,7 @@ of arguments, in which case each argument is evaluated and the resulting new list is re-bound to VAR. After VARS is handled, BODY is evaluated in the new environment." - (declare (indent 1) (debug (sexp &rest form))) + (declare (indent 1) (debug (sexp body))) (cond ((consp vars) `(inline--leteval ,(pop vars) (inline-letevals ,vars ,@body))) |
