From e49337eabb2f1d16999f9329b287ca43d68c47cf Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Tue, 11 Dec 2007 05:52:07 +0000 Subject: (check-declare-verify): Handle deffoo. --- lisp/emacs-lisp/check-declare.el | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) (limited to 'lisp/emacs-lisp') 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;]+\\|$\\)") -- cgit v1.2.3