diff options
| author | Philipp Stephani <phst@google.com> | 2020-06-10 15:46:12 +0200 |
|---|---|---|
| committer | Philipp Stephani <phst@google.com> | 2020-06-10 15:46:12 +0200 |
| commit | 00f4b7215c63b02171d0a5c48d3da802a202463e (patch) | |
| tree | 76f5af4b6cc33b7e25b95b1bf3d381434bc5ec57 /lisp/emacs-lisp | |
| parent | 73be4d1ed5b190bd93e9bad6aebe43d0dea0d7d3 (diff) | |
| download | emacs-00f4b7215c63b02171d0a5c48d3da802a202463e.tar.gz emacs-00f4b7215c63b02171d0a5c48d3da802a202463e.tar.bz2 emacs-00f4b7215c63b02171d0a5c48d3da802a202463e.zip | |
Slightly improve commit 73be4d1ed5b190bd93e9bad6aebe43d0dea0d7d3.
* lisp/emacs-lisp/cl-macs.el (cl-lambda-list, cl-lambda-list1)
(cl-macro-list, cl-macro-list1): Use exactly the same specification as
for &optional (sans the third optional list element).
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/cl-macs.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/emacs-lisp/cl-macs.el b/lisp/emacs-lisp/cl-macs.el index 45e814e859c..a3e72c4b00d 100644 --- a/lisp/emacs-lisp/cl-macs.el +++ b/lisp/emacs-lisp/cl-macs.el @@ -199,7 +199,7 @@ The name is made by appending a number to PREFIX, default \"T\"." [&optional ["&key" [cl-&key-arg &rest cl-&key-arg] &optional "&allow-other-keys"]] [&optional ["&aux" &rest - &or (cl-lambda-arg &optional def-form) cl-lambda-arg]] + &or (cl-lambda-arg &optional def-form) arg]] . [&or arg nil]))) (def-edebug-spec cl-&optional-arg @@ -219,7 +219,7 @@ The name is made by appending a number to PREFIX, default \"T\"." [&optional ["&key" cl-&key-arg &rest cl-&key-arg &optional "&allow-other-keys"]] [&optional ["&aux" &rest - &or (cl-lambda-arg &optional def-form) cl-lambda-arg]] + &or (cl-lambda-arg &optional def-form) arg]] . [&or arg nil]))) (def-edebug-spec cl-type-spec sexp) @@ -402,7 +402,7 @@ and BODY is implicitly surrounded by (cl-block NAME ...). arg]] &optional "&allow-other-keys"]] [&optional ["&aux" &rest - &or (cl-lambda-arg &optional def-form) cl-lambda-arg]] + &or (cl-macro-arg &optional def-form) arg]] [&optional "&environment" arg] ))) @@ -421,7 +421,7 @@ and BODY is implicitly surrounded by (cl-block NAME ...). arg]] &optional "&allow-other-keys"]] [&optional ["&aux" &rest - &or (cl-lambda-arg &optional def-form) cl-lambda-arg]] + &or (cl-macro-arg &optional def-form) arg]] . [&or arg nil]))) ;;;###autoload |