From ae7155155be576e156e9c6655c823d95ce50ec67 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Tue, 29 Sep 2009 04:12:46 +0000 Subject: (check-declare-verify): Add basic defmethod and defclass, and define-overloadable-function. --- lisp/emacs-lisp/check-declare.el | 12 ++++++++---- 1 file changed, 8 insertions(+), 4 deletions(-) (limited to 'lisp/emacs-lisp/check-declare.el') diff --git a/lisp/emacs-lisp/check-declare.el b/lisp/emacs-lisp/check-declare.el index 1251699f8f1..9e1f8b4f089 100644 --- a/lisp/emacs-lisp/check-declare.el +++ b/lisp/emacs-lisp/check-declare.el @@ -34,6 +34,8 @@ ;; 1. Warn about functions marked as obsolete, eg ;; password-read-and-add in smime.el. +;; 2. defmethod, defclass argument checking. +;; 3. defclass also defines -p and -child-p. ;;; Code: @@ -143,9 +145,10 @@ is a string giving details of the error." (setq re (format (if cflag "^[ \t]*\\(DEFUN\\)[ \t]*([ \t]*\"%s\"" "^[ \t]*(\\(fset[ \t]+'\\|\ -def\\(?:un\\|subst\\|foo\\|\ -ine-\\(?:derived\\|generic\\|\\(?:global\\(?:ized\\)?-\\)?minor\\)-mode\ -\\|\\(?:ine-obsolete-function-\\)?alias[ \t]+'\\)\\)\ +def\\(?:un\\|subst\\|foo\\|method\\|class\\|\ +ine-\\(?:derived\\|generic\\|\\(?:global\\(?:ized\\)?-\\)?minor\\)-mode\\|\ +\\(?:ine-obsolete-function-\\)?alias[ \t]+'\\|\ +ine-overloadable-function\\)\\)\ \[ \t]*%s\\([ \t;]+\\|$\\)") (regexp-opt (mapcar 'cadr fnlist) t))) (while (re-search-forward re nil t) @@ -185,7 +188,8 @@ ine-\\(?:derived\\|generic\\|\\(?:global\\(?:ized\\)?-\\)?minor\\)-mode\ type) 'obsolete) ;; Can't easily check arguments in these cases. - ((string-match "\\`\\(defalias\\|fset\\)\\>" type) + ((string-match "\\`\\(def\\(alias\\|\ +method\\|class\\)\\|fset\\)\\>" type) t) ((looking-at "\\((\\|nil\\)") (byte-compile-arglist-signature -- cgit v1.2.3