[Emacs-diffs] trunk r113291: * admin/admin.el (make-manuals): Use a pdf/ subdirectory for pdf versions.

[Glenn Morris]

------------------------------------------------------------
revno: 113291
revision-id: address@hidden
parent: address@hidden
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Fri 2013-07-05 09:10:47 -0700
message:
  * admin/admin.el (make-manuals): Use a pdf/ subdirectory for pdf versions.
modified:
  admin/ChangeLog                changelog-20091113204419-o5vbwnq5f7feedwu-2226
  admin/admin.el                 admin.el-20091113204419-o5vbwnq5f7feedwu-2254

=== modified file 'admin/ChangeLog'
--- a/admin/ChangeLog   2013-07-05 01:35:56 +0000
+++ b/admin/ChangeLog   2013-07-05 16:10:47 +0000
@@ -1,6 +1,7 @@
 2013-07-05  Glenn Morris  <address@hidden>
 
        * admin.el (make-manuals): Use a standard location for lispintro.
+       Use a pdf/ subdirectory for pdf versions.
 
 2013-06-29  Glenn Morris  <address@hidden>
 

=== modified file 'admin/admin.el'
--- a/admin/admin.el    2013-07-05 01:35:56 +0000
+++ b/admin/admin.el    2013-07-05 16:10:47 +0000
@@ -199,7 +199,8 @@
   (let* ((dest (expand-file-name "manual" root))
         (html-node-dir (expand-file-name "html_node" dest))
         (html-mono-dir (expand-file-name "html_mono" dest))
-        (ps-dir (expand-file-name "ps" dest)))
+        (ps-dir (expand-file-name "ps" dest))
+        (pdf-dir (expand-file-name "pdf" dest)))
     (when (file-directory-p dest)
       (if (y-or-n-p (format "Directory %s exists, delete it first?" dest))
          (delete-directory dest t)
@@ -208,23 +209,24 @@
     (make-directory html-node-dir)
     (make-directory html-mono-dir)
     (make-directory ps-dir)
+    (make-directory pdf-dir)
     ;; Emacs manual
     (let ((texi (expand-file-name "doc/emacs/emacs.texi" root)))
       (manual-html-node texi (expand-file-name "emacs" html-node-dir))
       (manual-html-mono texi (expand-file-name "emacs.html" html-mono-dir))
-      (manual-pdf texi (expand-file-name "emacs.pdf" dest))
+      (manual-pdf texi (expand-file-name "emacs.pdf" pdf-dif))
       (manual-ps texi (expand-file-name "emacs.ps" ps-dir)))
     ;; Lisp manual
     (let ((texi (expand-file-name "doc/lispref/elisp.texi" root)))
       (manual-html-node texi (expand-file-name "elisp" html-node-dir))
       (manual-html-mono texi (expand-file-name "elisp.html" html-mono-dir))
-      (manual-pdf texi (expand-file-name "elisp.pdf" dest))
+      (manual-pdf texi (expand-file-name "elisp.pdf" pdf-dir))
       (manual-ps texi (expand-file-name "elisp.ps" ps-dir)))
     ;; 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-pdf texi (expand-file-name "eintr.pdf" pdf-dir))
       (manual-ps texi (expand-file-name "eintr.ps" ps-dir)))
     ;; Misc manuals
     (let ((manuals '("ada-mode" "auth" "autotype" "bovine" "calc" "cc-mode"