mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-06 14:30:50 -08:00
Code Issues Projects Releases Wiki Activity

Adjust the edebug spec for `interactive'

Browse source 
* lisp/emacs-lisp/edebug.el: Adjust the edebug spec for
`interactive' for the new syntax.
This commit is contained in:
Lars Ingebrigtsen 2021-02-17 20:59:44 +01:00
parent a5293c8dd3
commit 6735bb3d22
1 changed files with 4 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/emacs-lisp/edebug.el
View file

@ -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.