[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 6735bb3: Adjust the edebug spec for `interactive'
From: |
Lars Ingebrigtsen |
Subject: |
master 6735bb3: Adjust the edebug spec for `interactive' |
Date: |
Wed, 17 Feb 2021 14:59:54 -0500 (EST) |
branch: master
commit 6735bb3d22dc64f3fe42e4a7f439ea9d62f75b5a
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>
Adjust the edebug spec for `interactive'
* lisp/emacs-lisp/edebug.el: Adjust the edebug spec for
`interactive' for the new syntax.
---
lisp/emacs-lisp/edebug.el | 6 ++++--
1 file changed, 4 insertions(+), 2 deletions(-)
diff --git a/lisp/emacs-lisp/edebug.el b/lisp/emacs-lisp/edebug.el
index 7fae4d2..4599694 100644
--- a/lisp/emacs-lisp/edebug.el
+++ b/lisp/emacs-lisp/edebug.el
@@ -2136,7 +2136,8 @@ SPEC is the symbol name prefix for `gensym'."
;; more convenient to define their Edebug spec here.
(defun ( &define name lambda-list lambda-doc
[&optional ("declare" def-declarations)]
- [&optional ("interactive" &optional &or stringp def-form)]
+ [&optional ("interactive" &optional [&or stringp def-form]
+ &rest symbolp)]
def-body))
(defmacro ( &define name lambda-list lambda-doc
@@ -2192,7 +2193,8 @@ SPEC is the symbol name prefix for `gensym'."
'(&optional [&or stringp
(&define ":documentation" def-form)]))
-(def-edebug-elem-spec 'interactive '(&optional &or stringp def-form))
+(def-edebug-elem-spec 'interactive '(&optional [&or stringp def-form]
+ &rest symbolp))
;; A function-form is for an argument that may be a function or a form.
;; This specially recognizes anonymous functions quoted with quote.
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 6735bb3: Adjust the edebug spec for `interactive',
Lars Ingebrigtsen <=