aboutsummaryrefslogtreecommitdiffstats
path: root/admin
diff options
context:
space:
mode:
Diffstat (limited to 'admin')
-rw-r--r--admin/ChangeLog2
-rw-r--r--admin/admin.el18
2 files changed, 9 insertions, 11 deletions
diff --git a/admin/ChangeLog b/admin/ChangeLog
index f6f25f26733..8746657517e 100644
--- a/admin/ChangeLog
+++ b/admin/ChangeLog
@@ -4,6 +4,8 @@
4 (manual-txt): Remove. 4 (manual-txt): Remove.
5 (manual-pdf): Doc fix. 5 (manual-pdf): Doc fix.
6 (manual-ps): Rename from manual-dvi. 6 (manual-ps): Rename from manual-dvi.
7 (manual-pdf, manual-ps): Work in the directory with the texi file,
8 so that TeX intermediate files go there rather than to PWD.
7 9
82013-06-15 Xue Fuqiao <xfq.free@gmail.com> 102013-06-15 Xue Fuqiao <xfq.free@gmail.com>
9 11
diff --git a/admin/admin.el b/admin/admin.el
index 0447b95217e..2bc4955810d 100644
--- a/admin/admin.el
+++ b/admin/admin.el
@@ -334,21 +334,17 @@ the @import directive."
334 334
335(defun manual-pdf (texi-file dest) 335(defun manual-pdf (texi-file dest)
336 "Run texi2pdf on TEXI-FILE, emitting pdf output to DEST." 336 "Run texi2pdf on TEXI-FILE, emitting pdf output to DEST."
337 (call-process "texi2pdf" nil nil nil 337 (let ((default-directory (file-name-directory texi-file)))
338 "-I" (expand-file-name "../emacs" 338 (call-process "texi2pdf" nil nil nil
339 (file-name-directory texi-file)) 339 "-I" "../emacs" "-I" "../misc"
340 "-I" (expand-file-name "../misc" 340 texi-file "-o" dest)))
341 (file-name-directory texi-file))
342 texi-file "-o" dest))
343 341
344(defun manual-ps (texi-file dest) 342(defun manual-ps (texi-file dest)
345 "Generate a PostScript version of TEXI-FILE as DEST." 343 "Generate a PostScript version of TEXI-FILE as DEST."
346 (let ((dvi-dest (concat (file-name-sans-extension dest) ".dvi"))) 344 (let ((dvi-dest (concat (file-name-sans-extension dest) ".dvi"))
345 (default-directory (file-name-directory texi-file)))
347 (call-process "texi2dvi" nil nil nil 346 (call-process "texi2dvi" nil nil nil
348 "-I" (expand-file-name "../emacs" 347 "-I" "../emacs" "-I" "../misc"
349 (file-name-directory texi-file))
350 "-I" (expand-file-name "../misc"
351 (file-name-directory texi-file))
352 texi-file "-o" dvi-dest) 348 texi-file "-o" dvi-dest)
353 (call-process "dvips" nil nil nil dvi-dest "-o" dest) 349 (call-process "dvips" nil nil nil dvi-dest "-o" dest)
354 (delete-file dvi-dest) 350 (delete-file dvi-dest)