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:
parent
dcd4830cb9
commit
26b2e9aa4d
2 changed files with 19 additions and 1 deletions
|
|
@ -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)
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue