summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorGlenn Morris <rgm@gnu.org>2013-07-11 09:01:26 -0700
committerGlenn Morris <rgm@gnu.org>2013-07-11 09:01:26 -0700
commit03d019811522c5d98b3359e48b5cf4d5cc9b72e5 (patch)
tree8da662dc7f7d7235d30b7246ccbe5698cdefffe9
parent709c6d2b1cdb80fc3a33a8493c01ba32a9eb3b42 (diff)
downloademacs-03d019811522c5d98b3359e48b5cf4d5cc9b72e5.tar.gz
Silence package-test.el compilation
* test/automated/package-test.el (makeinfo-buffer): Autoload. (compilation-in-progress, tar-parse-info, tar-header-name): Declare. (package-test-install-texinfo): Don't require makeinfo.
-rw-r--r--test/ChangeLog4
-rwxr-xr-xtest/automated/package-test.el7
2 files changed, 10 insertions, 1 deletions
diff --git a/test/ChangeLog b/test/ChangeLog
index 1df70aecc66..5d51a8b7e98 100644
--- a/test/ChangeLog
+++ b/test/ChangeLog
@@ -1,5 +1,9 @@
2013-07-11 Glenn Morris <rgm@gnu.org>
+ * automated/package-test.el (makeinfo-buffer): Autoload.
+ (compilation-in-progress, tar-parse-info, tar-header-name): Declare.
+ (package-test-install-texinfo): Don't require makeinfo.
+
* automated/files.el: Stop "local variables" confusion.
* automated/flymake-tests.el (flymake-tests): Remove unused group.
diff --git a/test/automated/package-test.el b/test/automated/package-test.el
index 706ba953d98..a5f0ebb1f94 100755
--- a/test/automated/package-test.el
+++ b/test/automated/package-test.el
@@ -142,6 +142,9 @@
(let ((help-xref-following t))
,@body)))
+(autoload 'makeinfo-buffer "makeinfo")
+(defvar compilation-in-progress)
+
(defun package-test-install-texinfo (file)
"Install from texinfo FILE.
@@ -156,7 +159,6 @@ FILE should be a .texinfo file relative to the current
(with-current-buffer (find-file-literally full-file)
(unwind-protect
(progn
- (require 'makeinfo)
(makeinfo-buffer)
;; Give `makeinfo-buffer' a chance to finish
(while compilation-in-progress
@@ -184,6 +186,9 @@ DIR is the base name of the package directory, without the trailing slash"
(dolist (file (package-test-suffix-matches dir package-test-built-file-suffixes))
(delete-file file))))
+(defvar tar-parse-info)
+(declare-function tar-header-name "tar-mode" (cl-x) t) ; defstruct
+
(defun package-test-search-tar-file (filename)
"Search the current buffer's `tar-parse-info' variable for FILENAME.