+ (let ((texi (expand-file-name "doc/lispintro/emacs-lisp-intro.texi" root))
+ (dest (expand-file-name "emacs-lisp-intro" dest))
+ dest2 dest3)
+ ;; Mimic the atypical directory layout used for emacs-lisp-intro.
+ (make-directory dest)
+ (make-directory (setq dest2 (expand-file-name "html_node" dest)))
+ (manual-html-node texi dest2)
+ (make-directory (setq dest2 (expand-file-name "html_mono" dest)))
+ (manual-html-mono texi (expand-file-name "emacs-lisp-intro.html" dest2))
+ (make-directory (setq dest2 (expand-file-name "txt" dest)))
+ (manual-txt texi (expand-file-name "emacs-lisp-intro.txt" dest2))
+ (manual-pdf texi (expand-file-name "emacs-lisp-intro.pdf" dest))
+ (make-directory (setq dest2 (expand-file-name "dvi" dest)))
+ (make-directory (setq dest3 (expand-file-name "ps" dest)))
+ (manual-dvi texi (expand-file-name "emacs-lisp-intro.dvi" dest2)
+ (expand-file-name "emacs-lisp-intro.ps" dest3)))