summaryrefslogtreecommitdiff
path: root/lisp/emacs-lisp
diff options
context:
space:
mode:
authorStefan Kangas <stefankangas@gmail.com>2023-09-03 15:02:05 +0200
committerStefan Kangas <stefankangas@gmail.com>2023-09-03 15:39:16 +0200
commit6e1ee57c8ef58c9426ed55e5255c2527f45549a4 (patch)
treecbc11aaa22f88c86e5ffbe33659acf31578639f3 /lisp/emacs-lisp
parent328f96ea9e869a4c1677285cd91df312824b6a04 (diff)
downloademacs-6e1ee57c8ef58c9426ed55e5255c2527f45549a4.tar.gz
emacs-6e1ee57c8ef58c9426ed55e5255c2527f45549a4.tar.bz2
emacs-6e1ee57c8ef58c9426ed55e5255c2527f45549a4.zip
checkdoc: Don't warn for () in cl-defmacro args
Seen with, for example: (cl-defmacro foo (bar () &body baz) ...) * lisp/emacs-lisp/checkdoc.el (checkdoc-this-string-valid-engine): Improve support for `cl-defmacro' by ignoring "nil" in parameter list.
Diffstat (limited to 'lisp/emacs-lisp')
-rw-r--r--lisp/emacs-lisp/checkdoc.el2
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/checkdoc.el b/lisp/emacs-lisp/checkdoc.el
index e918ec1eebd..cf7b7c318f6 100644
--- a/lisp/emacs-lisp/checkdoc.el
+++ b/lisp/emacs-lisp/checkdoc.el
@@ -1793,7 +1793,7 @@ function,command,variable,option or symbol." ms1))))))
(order (and (nth 3 fp) (car (nth 3 fp))))
(nocheck (append '("&optional" "&rest" "&key" "&aux"
"&context" "&environment" "&whole"
- "&body" "&allow-other-keys")
+ "&body" "&allow-other-keys" "nil")
(nth 3 fp)))
(inopts nil))
(while (and args found (> found last-pos))