Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 17:24:23 +00:00
Code Issues Projects Releases Packages Wiki Activity

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

Browse source 
* 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
Show stats Download patch file Download diff file Expand all files Collapse all files

9
lisp/ChangeLog
View file

@ -1,3 +1,12 @@
2015-02-25 Oleh Krehel <ohwoeowho@gmail.com>
* emacs-lisp/check-declare.el (check-declare-ext-errors): New
defcustom.
(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".
2015-02-25 Tassilo Horn <tsdh@gnu.org>
* textmodes/reftex-vars.el (reftex-include-file-commands): Call

11
lisp/emacs-lisp/check-declare.el
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)