(let ((help-xref-following t))
,@body)))
+(autoload 'makeinfo-buffer "makeinfo")
+(defvar compilation-in-progress)
+
(defun package-test-install-texinfo (file)
"Install from texinfo FILE.
(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
(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.