diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2003-10-30 22:29:47 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2003-10-30 22:29:47 +0000 |
| commit | e70ff1af7029feb8faa2cf2c8209e90cb9c504e2 (patch) | |
| tree | 41b8b67ebca06d1557e7e90103118df9f5debaf9 /lisp/textmodes/tex-mode.el | |
| parent | 8ba2808bb6fd49fea9db521aaab4b588a56a46dd (diff) | |
| download | emacs-e70ff1af7029feb8faa2cf2c8209e90cb9c504e2.tar.gz emacs-e70ff1af7029feb8faa2cf2c8209e90cb9c504e2.tar.bz2 emacs-e70ff1af7029feb8faa2cf2c8209e90cb9c504e2.zip | |
(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.
Diffstat (limited to 'lisp/textmodes/tex-mode.el')
| -rw-r--r-- | lisp/textmodes/tex-mode.el | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/lisp/textmodes/tex-mode.el b/lisp/textmodes/tex-mode.el index cbf2f1cdef8..c6eeed16a20 100644 --- 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) |