(tex-compile-commands): Add `yap' and `ps2pdf'.

(tex-main-file): Don't add .tex if the extension is already present.
(tex-uptodate-p): Don't recurse indefinitely in the presence of symlinks.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index dde7d5366ccee6776b50212ec48ea11c110beeb5..3388bee14271aba6423a4ab81f0c3a59f2bdaf09 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,7 +1,13 @@
+2003-10-30  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+       * textmodes/tex-mode.el (tex-compile-commands): Add `yap' and `ps2pdf'.
+       (tex-main-file): Don't add .tex if the extension is already present.
+       (tex-uptodate-p): Don't recurse indefinitely with symlinks.
+
 2003-10-29  Lute Kamstra  <lute@gnu.org>
 
-       * progmodes/octave-inf.el (inferior-octave-prompt): Recognize
-       version number in prompt.
+       * progmodes/octave-inf.el (inferior-octave-prompt):
+       Recognize version number in prompt.
 
 2003-10-28  Dave Love  <fx@gnu.org>
 

diff --git a/lisp/textmodes/tex-mode.el b/lisp/textmodes/tex-mode.el
index cbf2f1cdef84b864c813b1e4f82a9c743ca5e663..c6eeed16a20c0e167143a9db6485c44c3a987a0f 100644 (file)
--- a/lisp/textmodes/tex-mode.el
+++ b/lisp/textmodes/tex-mode.el
@@ -1584,6 +1584,7 @@ If NOT-ALL is non-nil, save the `.dvi' file."
             " " (if (< 0 (length tex-start-commands))
                     (shell-quote-argument tex-start-commands)) " %f")
      t "%r.dvi")
+    ("yap %r &" "%r.dvi")
     ("xdvi %r &" "%r.dvi")
     ("advi %r &" "%r.dvi")
     ("bibtex %r" "%r.aux" "%r.bbl")
@@ -1592,6 +1593,7 @@ If NOT-ALL is non-nil, save the `.dvi' file."
     ("dvipdfm %r" "%r.dvi" "%r.pdf")
     ("dvipdf %r" "%r.dvi" "%r.pdf")
     ("dvips %r" "%r.dvi" "%r.ps")
+    ("ps2pdf %r.ps" "%r.ps" "%r.pdf")
     ("gv %r.ps &" "%r.ps")
     ("gv %r.pdf &" "%r.pdf")
     ("xpdf %r.pdf &" "%r.pdf")
@@ -1670,7 +1672,8 @@ of the current buffer."
                            (tex-guess-main-file 'sub)
                            ;; (tex-guess-main-file t)
                            buffer-file-name)))))))
-    (if (file-exists-p file) file (concat file ".tex"))))
+    (if (or (file-exists-p file) (string-match "\\.tex\\'" file))
+       file (concat file ".tex"))))
 
 (defun tex-summarize-command (cmd)
   (if (not (stringp cmd)) ""
@@ -1717,7 +1720,9 @@ FILE is typically the output DVI or PDF file."
         (uptodate t))
      (while (and files uptodate)
        (let ((f (pop files)))
-        (if (file-directory-p f)
+        (if (and (file-directory-p f)
+                 ;; Avoid infinite loops.
+                 (not (file-symlink-p f)))
             (unless (string-match ignored-dirs-re f)
               (setq files (nconc
                            (directory-files f t tex-input-files-re)