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".

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index fb8b1f7fc94cad4f429fcf4c7e3a210cff76e9ef..078fc3e3a6b5760114d0c565b12082aaf11acc26 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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

diff --git a/lisp/emacs-lisp/check-declare.el b/lisp/emacs-lisp/check-declare.el
index 13de61c4935eb04982e49d40f439c1f86feb7942..40ab03d83517aa67b5bbea44437e4195db10e377 100644 (file)
--- a/lisp/emacs-lisp/check-declare.el
+++ b/lisp/emacs-lisp/check-declare.el
@@ -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)