mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-24 06:20:43 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source 
(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.
This commit is contained in:
Stefan Monnier 2003-10-30 22:29:47 +00:00
parent 8ba2808bb6
commit e70ff1af70
2 changed files with 15 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

10
lisp/ChangeLog
View file

@ -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>

9
lisp/textmodes/tex-mode.el
View file

@ -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)