diff options
| -rw-r--r-- | lisp/ChangeLog | 4 | ||||
| -rw-r--r-- | lisp/emacs-lisp/check-declare.el | 6 |
2 files changed, 9 insertions, 1 deletions
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;]+\\|$\\)") |