[Emacs-diffs] emacs/lisp ChangeLog emacs-lisp/check-declare.el

[Glenn Morris]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Glenn Morris <gm>       09/09/29 04:12:49

Modified files:
        lisp           : ChangeLog 
        lisp/emacs-lisp: check-declare.el 

Log message:
        (check-declare-verify): Add basic defmethod and defclass, and
        define-overloadable-function.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.16288&r2=1.16289
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/emacs-lisp/check-declare.el?cvsroot=emacs&r1=1.21&r2=1.22

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.16288
retrieving revision 1.16289
diff -u -b -r1.16288 -r1.16289
--- ChangeLog   29 Sep 2009 03:37:03 -0000      1.16288
+++ ChangeLog   29 Sep 2009 04:12:46 -0000      1.16289
@@ -12,9 +12,17 @@
 
 2009-09-29  Glenn Morris  <address@hidden>
 
+       * cedet/ede/srecode.el (srecode-resolve-arguments): Fix declaration.
+
+       * cedet/semantic/complete.el 
(semantic-displayor-focus-abstract-child-p):
+       * cedet/semantic/tag-file.el (semanticdb-table-child-p):
+       * cedet/srecode/compile.el (srecode-template-inserter-newline-child-p):
+       Mark declarations not understood by check-declare.
+
        * emacs-lisp/check-declare.el (check-declare-locate): Remove pointless
        file-name-nondirectory call preventing location of cedet files.
        (check-declare-verify): Use literal search rather than re-search.
+       Add basic defmethod and defclass, and define-overloadable-function.
 
        * net/tramp-smb.el (tramp-smb-handle-directory-files-and-attributes):
        Use tramp-compat-file-attributes rather than nonexistent

Index: emacs-lisp/check-declare.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/emacs-lisp/check-declare.el,v
retrieving revision 1.21
retrieving revision 1.22
diff -u -b -r1.21 -r1.22
--- emacs-lisp/check-declare.el 29 Sep 2009 03:37:05 -0000      1.21
+++ emacs-lisp/check-declare.el 29 Sep 2009 04:12:49 -0000      1.22
@@ -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 @@
           (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 @@
                               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