[Emacs-diffs] scratch/check-declare e7e278c 1/2: check-declare.el (check-declare-ext-errors): New defcustom.

[Oleh Krehel]

branch: scratch/check-declare
commit e7e278c26806fb4b04de8c68ad773e6e94a7e592
Author: Oleh Krehel <address@hidden>
Commit: Oleh Krehel <address@hidden>

    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".
---
 lisp/ChangeLog                   |    9 +++++++++
 lisp/emacs-lisp/check-declare.el |   11 ++++++++++-
 2 files changed, 19 insertions(+), 1 deletions(-)

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 030d572..1ee515f 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,12 @@
+2015-02-13  Oleh Krehel  <address@hidden>
+
+       * 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-13  Artur Malabarba  <address@hidden>
 
        * emacs-lisp/package.el (package--compatibility-table): New var.
diff --git a/lisp/emacs-lisp/check-declare.el b/lisp/emacs-lisp/check-declare.el
index 13de61c..e635a8f 100644
--- 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"
+  :group 'check-declare)
+
 (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)