]> git.eshelyaron.com Git - emacs.git/commitdiff
* lisp/emacs-lisp/check-declare.el (check-declare-verify):
authorGlenn Morris <rgm@gnu.org>
Tue, 5 May 2015 00:17:35 +0000 (20:17 -0400)
committerGlenn Morris <rgm@gnu.org>
Tue, 5 May 2015 00:17:35 +0000 (20:17 -0400)
Handle cl-defgeneric, cl-defmethod.

lisp/emacs-lisp/check-declare.el

index a7045ad8f22696cbb954d3700a9490757bcdb75d..7269b83b61917fec0b18473d8dd6bc35ecb19e24 100644 (file)
@@ -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