diff options
| author | Glenn Morris <rgm@gnu.org> | 2013-07-04 18:35:56 -0700 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2013-07-04 18:35:56 -0700 |
| commit | 9f1d94c0e67101e0f22500b6899da03908ead891 (patch) | |
| tree | 2694ff4261a2d24362fe4fadb9fc0d514331dc8b /admin | |
| parent | b9ed53d53585d9e1122eb3e452c74db1f2506324 (diff) | |
| download | emacs-9f1d94c0e67101e0f22500b6899da03908ead891.tar.gz | |
* admin/admin.el (make-manuals): Use a standard location for lispintro.
Diffstat (limited to 'admin')
| -rw-r--r-- | admin/ChangeLog | 4 | ||||
| -rw-r--r-- | admin/admin.el | 18 |
2 files changed, 10 insertions, 12 deletions
diff --git a/admin/ChangeLog b/admin/ChangeLog index 8746657517e..ccee52e6b88 100644 --- a/admin/ChangeLog +++ b/admin/ChangeLog @@ -1,3 +1,7 @@ +2013-07-05 Glenn Morris <rgm@gnu.org> + + * admin.el (make-manuals): Use a standard location for lispintro. + 2013-06-29 Glenn Morris <rgm@gnu.org> * admin.el (make-manuals): Don't bother with txt or dvi any more. diff --git a/admin/admin.el b/admin/admin.el index 2bc4955810d..f82897e1686 100644 --- a/admin/admin.el +++ b/admin/admin.el @@ -220,18 +220,12 @@ Root must be the root of an Emacs source tree." (manual-html-mono texi (expand-file-name "elisp.html" html-mono-dir)) (manual-pdf texi (expand-file-name "elisp.pdf" dest)) (manual-ps texi (expand-file-name "elisp.ps" ps-dir))) - (let ((texi (expand-file-name "doc/lispintro/emacs-lisp-intro.texi" root)) - (dest (expand-file-name "emacs-lisp-intro" dest)) - dest2) - ;; 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)) - (manual-pdf texi (expand-file-name "emacs-lisp-intro.pdf" dest)) - (make-directory (setq dest2 (expand-file-name "ps" dest))) - (manual-ps texi (expand-file-name "emacs-lisp-intro.ps" dest2))) + ;; Lisp intro. + (let ((texi (expand-file-name "doc/lispintro/emacs-lisp-intro.texi" root))) + (manual-html-node texi (expand-file-name "eintr" html-node-dir)) + (manual-html-mono texi (expand-file-name "eintr.html" html-mono-dir)) + (manual-pdf texi (expand-file-name "eintr.pdf" dest)) + (manual-ps texi (expand-file-name "eintr.ps" ps-dir))) ;; Misc manuals (let ((manuals '("ada-mode" "auth" "autotype" "bovine" "calc" "cc-mode" "cl" "dbus" "dired-x" "ebrowse" "ede" "ediff" |