diff options
| author | Dmitry Gutov | 2017-05-05 03:43:07 +0300 |
|---|---|---|
| committer | Dmitry Gutov | 2017-05-05 03:43:44 +0300 |
| commit | ee0dd3031cd521f54c08287f4a3e7bc3ee515f55 (patch) | |
| tree | 1c7e4ed65881b1252063749177f9cb4659b6e6c2 | |
| parent | 167f47d202c6f68105f6f1e80922d5513d9ec7f4 (diff) | |
| download | emacs-ee0dd3031cd521f54c08287f4a3e7bc3ee515f55.tar.gz emacs-ee0dd3031cd521f54c08287f4a3e7bc3ee515f55.zip | |
cl-defmethod: Make the edebug spec more technically correct
* lisp/emacs-lisp/cl-generic.el (cl-defmethod): Denote the
edebug spec part for qualifiers as [&rest atom], per
http://lists.gnu.org/archive/html/emacs-devel/2017-05/msg00053.html.
| -rw-r--r-- | lisp/emacs-lisp/cl-generic.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/cl-generic.el b/lisp/emacs-lisp/cl-generic.el index 107d520b1e9..068f4fb0c84 100644 --- a/lisp/emacs-lisp/cl-generic.el +++ b/lisp/emacs-lisp/cl-generic.el | |||
| @@ -415,8 +415,9 @@ The set of acceptable TYPEs (also called \"specializers\") is defined | |||
| 415 | (&define ; this means we are defining something | 415 | (&define ; this means we are defining something |
| 416 | [&or symbolp ("setf" symbolp)] | 416 | [&or symbolp ("setf" symbolp)] |
| 417 | ;; ^^ This is the methods symbol | 417 | ;; ^^ This is the methods symbol |
| 418 | [ &optional keywordp ; this is key :before etc | 418 | [ &rest atom ] ; Multiple qualifiers are allowed. |
| 419 | &optional stringp ] ; :extra can be followed by a string | 419 | ; Like in CLOS spec, we support |
| 420 | ; any non-list values. | ||
| 420 | listp ; arguments | 421 | listp ; arguments |
| 421 | [ &optional stringp ] ; documentation string | 422 | [ &optional stringp ] ; documentation string |
| 422 | def-body))) ; part to be debugged | 423 | def-body))) ; part to be debugged |