[Emacs-diffs] trunk r113373: Silence package-test.el compilation

[Glenn Morris]

------------------------------------------------------------
revno: 113373
revision-id: address@hidden
parent: address@hidden
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Thu 2013-07-11 09:01:26 -0700
message:
  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.
modified:
  test/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-8588
  test/automated/package-test.el 
packagetest.el-20130627091655-6mb005jio30t2i3i-1

=== modified file 'test/ChangeLog'
--- a/test/ChangeLog    2013-07-11 16:00:05 +0000
+++ b/test/ChangeLog    2013-07-11 16:01:26 +0000
@@ -1,5 +1,9 @@
 2013-07-11  Glenn Morris  <address@hidden>
 
+       * 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.

=== modified file 'test/automated/package-test.el'
--- a/test/automated/package-test.el    2013-06-27 16:14:05 +0000
+++ b/test/automated/package-test.el    2013-07-11 16:01:26 +0000
@@ -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 @@
     (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 @@
     (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.