[Emacs-diffs] trunk r113285: * admin/admin.el (make-manuals): Use a standard location for lispintro.

[Glenn Morris]

------------------------------------------------------------
revno: 113285
revision-id: address@hidden
parent: address@hidden
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Thu 2013-07-04 18:35:56 -0700
message:
  * admin/admin.el (make-manuals): Use a standard location for lispintro.
modified:
  admin/ChangeLog                changelog-20091113204419-o5vbwnq5f7feedwu-2226
  admin/admin.el                 admin.el-20091113204419-o5vbwnq5f7feedwu-2254

=== modified file 'admin/ChangeLog'
--- a/admin/ChangeLog   2013-06-29 02:54:37 +0000
+++ b/admin/ChangeLog   2013-07-05 01:35:56 +0000
@@ -1,3 +1,7 @@
+2013-07-05  Glenn Morris  <address@hidden>
+
+       * admin.el (make-manuals): Use a standard location for lispintro.
+
 2013-06-29  Glenn Morris  <address@hidden>
 
        * admin.el (make-manuals): Don't bother with txt or dvi any more.

=== modified file 'admin/admin.el'
--- a/admin/admin.el    2013-06-29 02:54:37 +0000
+++ b/admin/admin.el    2013-07-05 01:35:56 +0000
@@ -220,18 +220,12 @@
       (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"