Commit e49337ea authored by Glenn Morris's avatar Glenn Morris

(check-declare-verify): Handle deffoo.

parent 9824ded5
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> 2007-12-11 Jay Belanger <jay.p.belanger@gmail.com>
* calc/calc-lang.el (math-lang-name): New property name. * calc/calc-lang.el (math-lang-name): New property name.
......
...@@ -34,6 +34,9 @@ ...@@ -34,6 +34,9 @@
;;; TODO: ;;; TODO:
;; 1. Warn about functions marked as obsolete, eg
;; password-read-and-add in smime.el.
;;; Code: ;;; Code:
(defconst check-declare-warning-buffer "*Check Declarations Warnings*" (defconst check-declare-warning-buffer "*Check Declarations Warnings*"
...@@ -141,7 +144,8 @@ is a string giving details of the error." ...@@ -141,7 +144,8 @@ is a string giving details of the error."
;; defsubst's don't _have_ to be known at compile time. ;; defsubst's don't _have_ to be known at compile time.
(setq re (format (if cflag (setq re (format (if cflag
"^[ \t]*\\(DEFUN\\)[ \t]*([ \t]*\"%s\"" "^[ \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-\\(?:derived\\|generic\\|\\(?:global\\(?:ized\\)?-\\)?minor\\)-mode\
\\|\\(?:ine-obsolete-function-\\)?alias[ \t]+'\\)\\)\ \\|\\(?:ine-obsolete-function-\\)?alias[ \t]+'\\)\\)\
\[ \t]*%s\\([ \t;]+\\|$\\)") \[ \t]*%s\\([ \t;]+\\|$\\)")
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment