[Emacs-diffs] trunk r113218: * admin.el (manual-pdf, manual-ps): Work in the directory with the texi file,

[Glenn Morris]

------------------------------------------------------------
revno: 113218
revision-id: address@hidden
parent: address@hidden
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Fri 2013-06-28 19:54:37 -0700
message:
  * 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.
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 01:51:32 +0000
+++ b/admin/ChangeLog   2013-06-29 02:54:37 +0000
@@ -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  <address@hidden>
 

=== modified file 'admin/admin.el'
--- a/admin/admin.el    2013-06-29 01:51:32 +0000
+++ b/admin/admin.el    2013-06-29 02:54:37 +0000
@@ -334,21 +334,17 @@
 
 (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)