From: Glenn Morris <rgm@gnu.org>
Date: Tue, 11 Dec 2007 05:52:07 +0000 (+0000)
Subject: (check-declare-verify): Handle deffoo.
X-Git-Tag: emacs-pretest-23.0.90~8943
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e49337eabb2f1d16999f9329b287ca43d68c47cf;p=emacs.git

(check-declare-verify): Handle deffoo.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d392c85e212..260a6a802a0 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2007-12-11  Glenn Morris  <rgm@gnu.org>
+
+	* emacs-lisp/check-declare.el (check-declare-verify): Handle deffoo.
+
 2007-12-11  Jay Belanger  <jay.p.belanger@gmail.com>
 
 	* calc/calc-lang.el (math-lang-name): New property name.
diff --git a/lisp/emacs-lisp/check-declare.el b/lisp/emacs-lisp/check-declare.el
index 9fc8a9e61e7..fe7f774c7e9 100644
--- a/lisp/emacs-lisp/check-declare.el
+++ b/lisp/emacs-lisp/check-declare.el
@@ -34,6 +34,9 @@
 
 ;;; TODO:
 
+;; 1. Warn about functions marked as obsolete, eg
+;; password-read-and-add in smime.el.
+
 ;;; Code:
 
 (defconst check-declare-warning-buffer "*Check Declarations Warnings*"
@@ -141,7 +144,8 @@ is a string giving details of the error."
           ;; defsubst's don't _have_ to be known at compile time.
           (setq re (format (if cflag
                                "^[ \t]*\\(DEFUN\\)[ \t]*([ \t]*\"%s\""
-                             "^[ \t]*(\\(fset[ \t]+'\\|def\\(?:un\\|subst\\|\
+                             "^[ \t]*(\\(fset[ \t]+'\\|\
+def\\(?:un\\|subst\\|foo\\|\
 ine-\\(?:derived\\|generic\\|\\(?:global\\(?:ized\\)?-\\)?minor\\)-mode\
 \\|\\(?:ine-obsolete-function-\\)?alias[ \t]+'\\)\\)\
 \[ \t]*%s\\([ \t;]+\\|$\\)")