diff options
| author | Lars Ingebrigtsen | 2019-07-13 16:49:23 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen | 2019-07-13 16:49:23 +0200 |
| commit | 5a90307351c4ba578cd7d5e26124d7ab7da3224f (patch) | |
| tree | 9165c84caaaab4555912b4f7c4d1e9079f9887fd | |
| parent | d4c2b3ca64efb61d832f8ae1cba95d82059814a9 (diff) | |
| download | emacs-5a90307351c4ba578cd7d5e26124d7ab7da3224f.tar.gz emacs-5a90307351c4ba578cd7d5e26124d7ab7da3224f.zip | |
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).
| -rw-r--r-- | lisp/emacs-lisp/check-declare.el | 2 |
1 files changed, 1 insertions, 1 deletions
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." | |||
| 148 | (setq re (format (if cflag | 148 | (setq re (format (if cflag |
| 149 | "^[ \t]*\\(DEFUN\\)[ \t]*([ \t]*\"%s\"" | 149 | "^[ \t]*\\(DEFUN\\)[ \t]*([ \t]*\"%s\"" |
| 150 | "^[ \t]*(\\(fset[ \t]+'\\|\ | 150 | "^[ \t]*(\\(fset[ \t]+'\\|\ |
| 151 | cl-def\\(?:generic\\|method\\)\\|\ | 151 | cl-def\\(?:generic\\|method\\|un\\)\\|\ |
| 152 | def\\(?:un\\|subst\\|foo\\|method\\|class\\|\ | 152 | def\\(?:un\\|subst\\|foo\\|method\\|class\\|\ |
| 153 | ine-\\(?:derived\\|generic\\|\\(?:global\\(?:ized\\)?-\\)?minor\\)-mode\\|\ | 153 | ine-\\(?:derived\\|generic\\|\\(?:global\\(?:ized\\)?-\\)?minor\\)-mode\\|\ |
| 154 | \\(?:ine-obsolete-function-\\)?alias[ \t]+'\\|\ | 154 | \\(?:ine-obsolete-function-\\)?alias[ \t]+'\\|\ |