diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2021-02-17 20:59:44 +0100 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2021-02-17 20:59:44 +0100 |
| commit | 6735bb3d22dc64f3fe42e4a7f439ea9d62f75b5a (patch) | |
| tree | c213da7e1a04c30312f0a2b7d7524929bd937d33 /lisp | |
| parent | a5293c8dd389f7bb873dc0a5556eb74d66b0d332 (diff) | |
| download | emacs-6735bb3d22dc64f3fe42e4a7f439ea9d62f75b5a.tar.gz emacs-6735bb3d22dc64f3fe42e4a7f439ea9d62f75b5a.tar.bz2 emacs-6735bb3d22dc64f3fe42e4a7f439ea9d62f75b5a.zip | |
Adjust the edebug spec for `interactive'
* lisp/emacs-lisp/edebug.el: Adjust the edebug spec for
`interactive' for the new syntax.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/emacs-lisp/edebug.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/edebug.el b/lisp/emacs-lisp/edebug.el index 7fae4d21d50..45996945948 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. |