(defun makeinfo-from-texinfo (file)
  "Run XEmacs in batch-mode to produce info files from Texinfo input
FILE."
  (interactive "Fxemacs Texinfo file: ")
  (shell-command
   (concat (expand-file-name "../src/xemacs" source-directory)
	   " -no-site-file -no-init-file"
	   " -batch -l texinfmt -f batch-texinfo-format"
	   " "
	   (if (file-name-absolute-p file)
	       file
	     (expand-file-name
	      file
	      (expand-file-name "man" (concat doc-directory "..")))))
   (concat "*" file ".err*")))

;;; These are all texinfo files to be converted into info format as of
;;; XEmacs-21.0-b46 (they include other texinfo files, though:
(mapc (function makeinfo-from-texinfo)
      '(
	"cl.texi"
	"custom.texi"
	"external-widget.texi"
	"info.texi"
	"standards.texi"
	"term.texi"
	"termcap.texi"
	"texinfo.texi"
	"widget.texi"
	"xemacs-faq.texi"
	"internals/internals.texi"
	"lispref/lispref.texi"
	"new-users-guide/new-users-guide.texi"
	"xemacs/xemacs.texi"
	))