1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-09 15:50:40 -08:00

check-declare.el (check-declare-ext-errors): New defcustom.

* emacs-lisp/check-declare.el (check-declare): New defgroup.
(check-declare-verify): When `check-declare-ext-errors' is non-nil,
warn about an unfound function, instead of saying "skipping external
file".
This commit is contained in:
Oleh Krehel 2015-02-13 14:34:17 +01:00
parent dcd4830cb9
commit 26b2e9aa4d
2 changed files with 19 additions and 1 deletions

View file

@ -125,6 +125,14 @@ With optional argument FULL, sums the number of elements in each element."
(autoload 'byte-compile-arglist-signature "bytecomp")
(defgroup check-declare nil
"Check declare-function statements."
:group 'tools)
(defcustom check-declare-ext-errors nil
"When non-nil, warn abount functions not found in :ext."
:type 'boolean)
(defun check-declare-verify (fnfile fnlist)
"Check that FNFILE contains function definitions matching FNLIST.
Each element of FNLIST has the form (FILE FN ARGLIST FILEONLY), where
@ -226,7 +234,8 @@ method\\|class\\)\\|fset\\)\\>" type)
(when type
(setq errlist (cons (list (car e) (cadr e) type) errlist))))
(message "%s%s" m
(if (or re (not ext))
(if (or re (or check-declare-ext-errors
(not ext)))
(check-declare-errmsg errlist)
(progn
(setq errlist nil)