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.
This commit is contained in:
Glenn Morris 2013-07-11 09:01:26 -07:00
parent 709c6d2b1c
commit 03d0198115
2 changed files with 10 additions and 1 deletions

View file

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

View file

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