diff options
| -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'." | |||
| 2136 | ;; more convenient to define their Edebug spec here. | 2136 | ;; more convenient to define their Edebug spec here. |
| 2137 | (defun ( &define name lambda-list lambda-doc | 2137 | (defun ( &define name lambda-list lambda-doc |
| 2138 | [&optional ("declare" def-declarations)] | 2138 | [&optional ("declare" def-declarations)] |
| 2139 | [&optional ("interactive" &optional &or stringp def-form)] | 2139 | [&optional ("interactive" &optional [&or stringp def-form] |
| 2140 | &rest symbolp)] | ||
| 2140 | def-body)) | 2141 | def-body)) |
| 2141 | 2142 | ||
| 2142 | (defmacro ( &define name lambda-list lambda-doc | 2143 | (defmacro ( &define name lambda-list lambda-doc |
| @@ -2192,7 +2193,8 @@ SPEC is the symbol name prefix for `gensym'." | |||
| 2192 | '(&optional [&or stringp | 2193 | '(&optional [&or stringp |
| 2193 | (&define ":documentation" def-form)])) | 2194 | (&define ":documentation" def-form)])) |
| 2194 | 2195 | ||
| 2195 | (def-edebug-elem-spec 'interactive '(&optional &or stringp def-form)) | 2196 | (def-edebug-elem-spec 'interactive '(&optional [&or stringp def-form] |
| 2197 | &rest symbolp)) | ||
| 2196 | 2198 | ||
| 2197 | ;; A function-form is for an argument that may be a function or a form. | 2199 | ;; A function-form is for an argument that may be a function or a form. |
| 2198 | ;; This specially recognizes anonymous functions quoted with quote. | 2200 | ;; This specially recognizes anonymous functions quoted with quote. |