diff options
| author | Gemini Lasswell | 2017-10-16 11:09:29 -0700 |
|---|---|---|
| committer | Gemini Lasswell | 2017-10-16 11:09:29 -0700 |
| commit | fb4200a87555c2e69cc66eea1ae9a55e8be3bbf3 (patch) | |
| tree | c4fa262f37248ffbdf600cd96eb1f194a46ef7cd /lisp/textmodes | |
| parent | db68cefe72e5c68fa81796028a52de1b8e6480aa (diff) | |
| download | emacs-fb4200a87555c2e69cc66eea1ae9a55e8be3bbf3.tar.gz emacs-fb4200a87555c2e69cc66eea1ae9a55e8be3bbf3.zip | |
Fix Edebug spec for cl-defun (bug#24255)
* lisp/emacs-lisp/cl-macs.el: Modify the Edebug spec for
`cl-lambda-list' to support destructuring argument lists.
(cl-defun, cl-defmacro): Fix spelling errors in docstrings.
* lisp/textmodes/rst.el: Remove alternate version of Edebug
specs for `cl-lambda-list' and `cl-type-spec'.
Diffstat (limited to 'lisp/textmodes')
| -rw-r--r-- | lisp/textmodes/rst.el | 16 |
1 files changed, 0 insertions, 16 deletions
diff --git a/lisp/textmodes/rst.el b/lisp/textmodes/rst.el index 146d9b95f1a..315059e1107 100644 --- a/lisp/textmodes/rst.el +++ b/lisp/textmodes/rst.el | |||
| @@ -109,22 +109,6 @@ | |||
| 109 | (def-edebug-spec push | 109 | (def-edebug-spec push |
| 110 | (&or [form symbolp] [form gv-place])) | 110 | (&or [form symbolp] [form gv-place])) |
| 111 | 111 | ||
| 112 | ;; Correct wrong declaration. This still doesn't support dotted destructuring | ||
| 113 | ;; though. | ||
| 114 | (def-edebug-spec cl-lambda-list | ||
| 115 | (([&rest cl-macro-arg] | ||
| 116 | [&optional ["&optional" cl-&optional-arg &rest cl-&optional-arg]] | ||
| 117 | [&optional ["&rest" arg]] | ||
| 118 | [&optional ["&key" [cl-&key-arg &rest cl-&key-arg] | ||
| 119 | &optional "&allow-other-keys"]] | ||
| 120 | [&optional ["&aux" &rest | ||
| 121 | &or (symbolp &optional def-form) symbolp]] | ||
| 122 | ))) | ||
| 123 | |||
| 124 | ;; Add missing declaration. | ||
| 125 | (def-edebug-spec cl-type-spec sexp) ;; This is not exactly correct but good | ||
| 126 | ;; enough. | ||
| 127 | |||
| 128 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | 112 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
| 129 | ;; Support for `testcover' | 113 | ;; Support for `testcover' |
| 130 | 114 | ||