[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] scratch/check-declare 3d0ac0f 1/2: check-declare.el (check
From: |
Oleh Krehel |
Subject: |
[Emacs-diffs] scratch/check-declare 3d0ac0f 1/2: check-declare.el (check-declare-ext-errors): New defcustom. |
Date: |
Sat, 14 Feb 2015 10:38:59 +0000 |
branch: scratch/check-declare
commit 3d0ac0f2ec1f645e6b009f2c1639904355d25a18
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..40ab03d 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."
+ :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)