From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Sat, 13 Jul 2019 14:49:23 +0000 (+0200)
Subject: Make check-declare understand cl-defun
X-Git-Tag: emacs-27.0.90~1945
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5a90307351c4ba578cd7d5e26124d7ab7da3224f;p=emacs.git

Make check-declare understand cl-defun

* lisp/emacs-lisp/check-declare.el (check-declare-verify): Add
cl-defun to the defun-ish regexp (bug#31396).
---

diff --git a/lisp/emacs-lisp/check-declare.el b/lisp/emacs-lisp/check-declare.el
index 0cb63bbe987..903b4e12a2f 100644
--- a/lisp/emacs-lisp/check-declare.el
+++ b/lisp/emacs-lisp/check-declare.el
@@ -148,7 +148,7 @@ is a string giving details of the error."
           (setq re (format (if cflag
                                "^[ \t]*\\(DEFUN\\)[ \t]*([ \t]*\"%s\""
                              "^[ \t]*(\\(fset[ \t]+'\\|\
-cl-def\\(?:generic\\|method\\)\\|\
+cl-def\\(?:generic\\|method\\|un\\)\\|\
 def\\(?:un\\|subst\\|foo\\|method\\|class\\|\
 ine-\\(?:derived\\|generic\\|\\(?:global\\(?:ized\\)?-\\)?minor\\)-mode\\|\
 \\(?:ine-obsolete-function-\\)?alias[ \t]+'\\|\