diff options
| author | Glenn Morris <rgm@gnu.org> | 2015-05-04 20:17:35 -0400 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2015-05-04 20:17:35 -0400 |
| commit | b2f3c8071b79b6e0dff73d5fbc1dcaab0d8f2fbe (patch) | |
| tree | c45a69a17026141bd1c117a75faf81afbdbe7dc4 /lisp/emacs-lisp/check-declare.el | |
| parent | f773a4dd216e408257a358ca7c0c3f9b49baa7a0 (diff) | |
| download | emacs-b2f3c8071b79b6e0dff73d5fbc1dcaab0d8f2fbe.tar.gz emacs-b2f3c8071b79b6e0dff73d5fbc1dcaab0d8f2fbe.tar.bz2 emacs-b2f3c8071b79b6e0dff73d5fbc1dcaab0d8f2fbe.zip | |
* lisp/emacs-lisp/check-declare.el (check-declare-verify):
Handle cl-defgeneric, cl-defmethod.
Diffstat (limited to 'lisp/emacs-lisp/check-declare.el')
| -rw-r--r-- | lisp/emacs-lisp/check-declare.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/check-declare.el b/lisp/emacs-lisp/check-declare.el index a7045ad8f22..7269b83b619 100644 --- a/lisp/emacs-lisp/check-declare.el +++ b/lisp/emacs-lisp/check-declare.el @@ -157,6 +157,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\\)\\|\ def\\(?:un\\|subst\\|foo\\|method\\|class\\|\ ine-\\(?:derived\\|generic\\|\\(?:global\\(?:ized\\)?-\\)?minor\\)-mode\\|\ \\(?:ine-obsolete-function-\\)?alias[ \t]+'\\|\ @@ -200,8 +201,8 @@ ine-overloadable-function\\)\\)\ type) 'obsolete) ;; Can't easily check arguments in these cases. - ((string-match "\\`\\(def\\(alias\\|\ -method\\|class\\)\\|fset\\)\\>" type) + ((string-match "\\`\\(def\\(alias\\|class\\)\\|\ +fset\\|\\(?:cl-\\)?defmethod\\)\\>" type) t) ((looking-at "\\((\\|nil\\)") (byte-compile-arglist-signature |