795 |
(regexp-opt '("documentstyle" "documentclass" |
(regexp-opt '("documentstyle" "documentclass" |
796 |
"begin" "subsection" "section" |
"begin" "subsection" "section" |
797 |
"part" "chapter" "newcommand" |
"part" "chapter" "newcommand" |
798 |
"renewcommand") 'words) |
"renewcommand" "RequirePackage") 'words) |
799 |
"\\|NeedsTeXFormat{LaTeX"))) |
"\\|NeedsTeXFormat{LaTeX"))) |
800 |
(if (and (looking-at |
(if (and (looking-at |
801 |
"document\\(style\\|class\\)\\(\\[.*\\]\\)?{slides}") |
"document\\(style\\|class\\)\\(\\[.*\\]\\)?{slides}") |
1639 |
" " (if (< 0 (length tex-start-commands)) |
" " (if (< 0 (length tex-start-commands)) |
1640 |
(shell-quote-argument tex-start-commands)) " %f") |
(shell-quote-argument tex-start-commands)) " %f") |
1641 |
t "%r.dvi") |
t "%r.dvi") |
|
("yap %r &" "%r.dvi") |
|
1642 |
("xdvi %r &" "%r.dvi") |
("xdvi %r &" "%r.dvi") |
1643 |
|
("xpdf %r.pdf &" "%r.pdf") |
1644 |
|
("gv %r.ps &" "%r.ps") |
1645 |
|
("yap %r &" "%r.dvi") |
1646 |
("advi %r &" "%r.dvi") |
("advi %r &" "%r.dvi") |
1647 |
|
("gv %r.pdf &" "%r.pdf") |
1648 |
("bibtex %r" "%r.aux" "%r.bbl") |
("bibtex %r" "%r.aux" "%r.bbl") |
1649 |
("makeindex %r" "%r.idx" "%r.ind") |
("makeindex %r" "%r.idx" "%r.ind") |
1650 |
("texindex %r.??") |
("texindex %r.??") |
1652 |
("dvipdf %r" "%r.dvi" "%r.pdf") |
("dvipdf %r" "%r.dvi" "%r.pdf") |
1653 |
("dvips -o %r.ps %r" "%r.dvi" "%r.ps") |
("dvips -o %r.ps %r" "%r.dvi" "%r.ps") |
1654 |
("ps2pdf %r.ps" "%r.ps" "%r.pdf") |
("ps2pdf %r.ps" "%r.ps" "%r.pdf") |
|
("gv %r.ps &" "%r.ps") |
|
|
("gv %r.pdf &" "%r.pdf") |
|
|
("xpdf %r.pdf &" "%r.pdf") |
|
1655 |
("lpr %r.ps" "%r.ps")) |
("lpr %r.ps" "%r.ps")) |
1656 |
"List of commands for `tex-compile'. |
"List of commands for `tex-compile'. |
1657 |
Each element should be of the form (FORMAT IN OUT) where |
Each element should be of the form (FORMAT IN OUT) where |
1830 |
(push cmd cmds) |
(push cmd cmds) |
1831 |
(push (nth 1 cmd) unchanged-in)))) |
(push (nth 1 cmd) unchanged-in)))) |
1832 |
;; If no command seems to be applicable, arbitrarily pick the first one. |
;; If no command seems to be applicable, arbitrarily pick the first one. |
1833 |
(unless cmds |
(setq cmds (if cmds (nreverse cmds) (list (car tex-compile-commands)))) |
|
(setq cmds (list (car tex-compile-commands)))) |
|
1834 |
;; Remove those commands whose input was considered stable for |
;; Remove those commands whose input was considered stable for |
1835 |
;; some other command (typically if (t . "%.pdf") is inactive |
;; some other command (typically if (t . "%.pdf") is inactive |
1836 |
;; then we're using pdflatex and the fact that the dvi file |
;; then we're using pdflatex and the fact that the dvi file |
1840 |
(unless (member (nth 1 cmd) unchanged-in) |
(unless (member (nth 1 cmd) unchanged-in) |
1841 |
(push cmd tmp))) |
(push cmd tmp))) |
1842 |
;; Only remove if there's something left. |
;; Only remove if there's something left. |
1843 |
(if tmp (setq cmds tmp))) |
(if tmp (setq cmds (nreverse tmp)))) |
1844 |
;; Remove commands whose input is not uptodate either. |
;; Remove commands whose input is not uptodate either. |
1845 |
(let ((outs (delq nil (mapcar (lambda (x) (nth 2 x)) cmds))) |
(let ((outs (delq nil (mapcar (lambda (x) (nth 2 x)) cmds))) |
1846 |
(tmp nil)) |
(tmp nil)) |
1848 |
(unless (member (nth 1 cmd) outs) |
(unless (member (nth 1 cmd) outs) |
1849 |
(push cmd tmp))) |
(push cmd tmp))) |
1850 |
;; Only remove if there's something left. |
;; Only remove if there's something left. |
1851 |
(if tmp (setq cmds tmp))) |
(if tmp (setq cmds (nreverse tmp)))) |
1852 |
;; Select which file we're going to operate on (the latest). |
;; Select which file we're going to operate on (the latest). |
1853 |
(let ((latest (nth 1 (car cmds)))) |
(let ((latest (nth 1 (car cmds)))) |
1854 |
(dolist (cmd (prog1 (cdr cmds) (setq cmds (list (car cmds))))) |
(dolist (cmd (prog1 (cdr cmds) (setq cmds (list (car cmds))))) |