From: Stefan Kangas <stefankangas@gmail.com>
Date: Sun, 3 Sep 2023 13:02:05 +0000 (+0200)
Subject: checkdoc: Don't warn for () in cl-defmacro args
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6e1ee57c8ef58c9426ed55e5255c2527f45549a4;p=emacs.git

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

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))