From: Glenn Morris <rgm@gnu.org>
Date: Sat, 29 Jun 2013 02:54:37 +0000 (-0700)
Subject: * admin.el (manual-pdf, manual-ps): Work in the directory with the texi file,
X-Git-Tag: emacs-24.3.90~173^2^2~42^2~45^2~387^2~1991^2~1
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b9a54f5e1dc62fdf6a1dbd9df746f0b6798bab29;p=emacs.git

* admin.el (manual-pdf, manual-ps): Work in the directory with the texi file,
so that TeX intermediate files go there rather than to PWD.
---

diff --git a/admin/ChangeLog b/admin/ChangeLog
index f6f25f26733..8746657517e 100644
--- a/admin/ChangeLog
+++ b/admin/ChangeLog
@@ -4,6 +4,8 @@
 	(manual-txt): Remove.
 	(manual-pdf): Doc fix.
 	(manual-ps): Rename from manual-dvi.
+	(manual-pdf, manual-ps): Work in the directory with the texi file,
+	so that TeX intermediate files go there rather than to PWD.
 
 2013-06-15  Xue Fuqiao  <xfq.free@gmail.com>
 
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."
 
 (defun manual-pdf (texi-file dest)
   "Run texi2pdf on TEXI-FILE, emitting pdf output to DEST."
-  (call-process "texi2pdf" nil nil nil
-		"-I" (expand-file-name "../emacs"
-				       (file-name-directory texi-file))
-		"-I" (expand-file-name "../misc"
-				       (file-name-directory texi-file))
-		texi-file "-o" dest))
+  (let ((default-directory (file-name-directory texi-file)))
+    (call-process "texi2pdf" nil nil nil
+		  "-I" "../emacs" "-I" "../misc"
+		  texi-file "-o" dest)))
 
 (defun manual-ps (texi-file dest)
   "Generate a PostScript version of TEXI-FILE as DEST."
-  (let ((dvi-dest (concat (file-name-sans-extension dest) ".dvi")))
+  (let ((dvi-dest (concat (file-name-sans-extension dest) ".dvi"))
+	(default-directory (file-name-directory texi-file)))
     (call-process "texi2dvi" nil nil nil
-		  "-I" (expand-file-name "../emacs"
-					 (file-name-directory texi-file))
-		  "-I" (expand-file-name "../misc"
-					 (file-name-directory texi-file))
+		  "-I" "../emacs" "-I" "../misc"
 		  texi-file "-o" dvi-dest)
     (call-process "dvips" nil nil nil dvi-dest "-o" dest)
     (delete-file dvi-dest)