[Emacs-diffs] /srv/bzr/emacs/emacs-24 r111331: * admin/admin.el (manual-pdf, manual-dvi): Pass -I to texi2pdf, texi2dvi.

[Glenn Morris]

------------------------------------------------------------
revno: 111331
committer: Glenn Morris <address@hidden>
branch nick: emacs-24
timestamp: Wed 2013-03-13 21:59:13 -0700
message:
  * admin/admin.el (manual-pdf, manual-dvi): Pass -I to texi2pdf, texi2dvi.
modified:
  admin/ChangeLog
  admin/admin.el

=== modified file 'admin/ChangeLog'
--- a/admin/ChangeLog   2013-03-12 07:15:15 +0000
+++ b/admin/ChangeLog   2013-03-14 04:59:13 +0000
@@ -1,3 +1,7 @@
+2013-03-14  Glenn Morris  <address@hidden>
+
+       * admin.el (manual-pdf, manual-dvi): Pass -I to texi2pdf, texi2dvi.
+
 2013-03-12  Glenn Morris  <address@hidden>
 
        * admin.el (manual-html-mono, manual-html-node): Add -DWWW_GNU_ORG.

=== modified file 'admin/admin.el'
--- a/admin/admin.el    2013-03-12 07:15:15 +0000
+++ b/admin/admin.el    2013-03-14 04:59:13 +0000
@@ -339,12 +339,22 @@
 
 (defun manual-pdf (texi-file dest)
   "Run texi2pdf on TEXI-FILE, emitting plaintext output to DEST."
-  (call-process "texi2pdf" nil nil nil texi-file "-o" 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))
 
 (defun manual-dvi (texi-file dest ps-dest)
   "Run texi2dvi on TEXI-FILE, emitting dvi output to DEST.
 Also generate PostScript output in PS-DEST."
-  (call-process "texi2dvi" nil nil nil texi-file "-o" dest)
+  (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))
+               texi-file "-o" dest)
   (call-process "dvips" nil nil nil dest "-o" ps-dest)
   (call-process "gzip" nil nil nil dest)
   (call-process "gzip" nil nil nil ps-dest))