;;; check-declare.el --- Check declare-function statements
-;; Copyright (C) 2007-2015 Free Software Foundation, Inc.
+;; Copyright (C) 2007-2016 Free Software Foundation, Inc.
;; Author: Glenn Morris <rgm@gnu.org>
;; Keywords: lisp, tools, maint
(defcustom check-declare-ext-errors nil
"When non-nil, warn about functions not found in :ext."
+ :version "25.1"
:type 'boolean)
(defun check-declare-verify (fnfile fnlist)
ine-\\(?:derived\\|generic\\|\\(?:global\\(?:ized\\)?-\\)?minor\\)-mode\\|\
\\(?:ine-obsolete-function-\\)?alias[ \t]+'\\|\
ine-overloadable-function\\)\\)\
-\[ \t]*%s\\([ \t;]+\\|$\\)")
+[ \t]*%s\\([ \t;]+\\|$\\)")
(regexp-opt (mapcar 'cadr fnlist) t)))
(while (re-search-forward re nil t)
(skip-chars-forward " \t\n")
entry))
(warning-fill-prefix " "))
(display-warning 'check-declare
- (format "said `%s' was defined in %s: %s"
- fn (file-name-nondirectory fnfile) type)
+ (format-message "said `%s' was defined in %s: %s"
+ fn (file-name-nondirectory fnfile) type)
nil check-declare-warning-buffer)))
(declare-function compilation-forget-errors "compile" ())
(setq files (process-lines find-program root
"-name" "*.el"
"-exec" grep-program
- "-l" "^[ \t]*(declare-function" "{}" ";"))
+ "-l" "^[ \t]*(declare-function" "{}" "+"))
(message "%s%d found" m2 (length files))
(when files
(setq errlist (apply 'check-declare-files files))