[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 2c38f13: * admin/admin.el (make-manuals): Add emacs
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] master 2c38f13: * admin/admin.el (make-manuals): Add emacs-xtra in pdf and ps. |
Date: |
Sat, 18 Apr 2015 21:30:49 +0000 |
branch: master
commit 2c38f1358250afa1393d08ec5cec3ade80d5ea0f
Author: Glenn Morris <address@hidden>
Commit: Glenn Morris <address@hidden>
* admin/admin.el (make-manuals): Add emacs-xtra in pdf and ps.
---
admin/admin.el | 13 +++++++++----
1 files changed, 9 insertions(+), 4 deletions(-)
diff --git a/admin/admin.el b/admin/admin.el
index f7b9155..93e9124 100644
--- a/admin/admin.el
+++ b/admin/admin.el
@@ -199,6 +199,7 @@ Optional argument TYPE is type of output (nil means all)."
(ps-dir (expand-file-name "ps" dest))
(pdf-dir (expand-file-name "pdf" dest))
(emacs (expand-file-name "doc/emacs/emacs.texi" root))
+ (emacs-xtra (expand-file-name "doc/emacs/emacs-xtra.texi" root))
(elisp (expand-file-name "doc/lispref/elisp.texi" root))
(eintr (expand-file-name "doc/lispintro/emacs-lisp-intro.texi" root))
(misc (manual-misc-manuals root)))
@@ -212,10 +213,14 @@ Optional argument TYPE is type of output (nil means all)."
(manual-html-node emacs (expand-file-name "emacs" html-node-dir)))
(if (member type '(nil "emacs" "emacs-mono"))
(manual-html-mono emacs (expand-file-name "emacs.html" html-mono-dir)))
- (if (member type '(nil "emacs" "emacs-pdf" "pdf"))
- (manual-pdf emacs (expand-file-name "emacs.pdf" pdf-dir)))
- (if (member type '(nil "emacs" "emacs-ps" "ps"))
- (manual-ps emacs (expand-file-name "emacs.ps" ps-dir)))
+ (when (member type '(nil "emacs" "emacs-pdf" "pdf"))
+ (manual-pdf emacs (expand-file-name "emacs.pdf" pdf-dir))
+ ;; emacs-xtra exists only in pdf/ps format.
+ ;; In other formats it is included in the Emacs manual.
+ (manual-pdf emacs-xtra (expand-file-name "emacs-xtra.pdf" pdf-dir)))
+ (when (member type '(nil "emacs" "emacs-ps" "ps"))
+ (manual-ps emacs (expand-file-name "emacs.ps" ps-dir))
+ (manual-ps emacs-xtra (expand-file-name "emacs-xtra.ps" ps-dir)))
(if (member type '(nil "elisp" "elisp-node"))
(manual-html-node elisp (expand-file-name "elisp" html-node-dir)))
(if (member type '(nil "elisp" "elisp-mono"))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master 2c38f13: * admin/admin.el (make-manuals): Add emacs-xtra in pdf and ps.,
Glenn Morris <=