1633 |
(defvar tex-compile-commands |
(defvar tex-compile-commands |
1634 |
'(((concat "pdf" tex-command |
'(((concat "pdf" tex-command |
1635 |
" " (if (< 0 (length tex-start-commands)) |
" " (if (< 0 (length tex-start-commands)) |
1636 |
(shell-quote-argument tex-start-commands)) " %f") |
tex-start-commands) " %f") |
1637 |
t "%r.pdf") |
t "%r.pdf") |
1638 |
((concat tex-command |
((concat tex-command |
1639 |
" " (if (< 0 (length tex-start-commands)) |
" " (if (< 0 (length tex-start-commands)) |
1640 |
(shell-quote-argument tex-start-commands)) " %f") |
tex-start-commands) " %f") |
1641 |
t "%r.dvi") |
t "%r.dvi") |
1642 |
("yap %r &" "%r.dvi") |
("yap %r &" "%r.dvi") |
1643 |
("xdvi %r &" "%r.dvi") |
("xdvi %r &" "%r.dvi") |
1900 |
(prog1 (file-name-directory (expand-file-name file)) |
(prog1 (file-name-directory (expand-file-name file)) |
1901 |
(setq file (file-name-nondirectory file)))) |
(setq file (file-name-nondirectory file)))) |
1902 |
(root (file-name-sans-extension file)) |
(root (file-name-sans-extension file)) |
1903 |
(fspec (list (cons ?r (shell-quote-argument root)) |
(fspec (list (cons ?r root) |
1904 |
(cons ?f (shell-quote-argument file)))) |
(cons ?f file))) |
1905 |
(default (tex-compile-default fspec))) |
(default (tex-compile-default fspec))) |
1906 |
(list default-directory |
(list default-directory |
1907 |
(completing-read |
(completing-read |
1922 |
(compile-command |
(compile-command |
1923 |
(if star |
(if star |
1924 |
(concat (substring command 0 star) |
(concat (substring command 0 star) |
1925 |
(shell-quote-argument file) |
file |
1926 |
(substring command (1+ star))) |
(substring command (1+ star))) |
1927 |
(concat command " " |
(concat command " " |
1928 |
tex-start-options |
tex-start-options |
1929 |
(if (< 0 (length tex-start-commands)) |
(if (< 0 (length tex-start-commands)) |
1930 |
(concat |
(concat tex-start-commands " ")) |
1931 |
(shell-quote-argument tex-start-commands) " ")) |
file)))) |
|
(shell-quote-argument file))))) |
|
1932 |
(tex-send-tex-command compile-command dir))) |
(tex-send-tex-command compile-command dir))) |
1933 |
|
|
1934 |
(defun tex-send-tex-command (cmd &optional dir) |
(defun tex-send-tex-command (cmd &optional dir) |
2231 |
(tex-start-shell)) |
(tex-start-shell)) |
2232 |
(tex-send-command |
(tex-send-command |
2233 |
(if alt tex-alt-dvi-print-command tex-dvi-print-command) |
(if alt tex-alt-dvi-print-command tex-dvi-print-command) |
2234 |
(shell-quote-argument |
print-file-name-dvi |
|
print-file-name-dvi) |
|
2235 |
t)))) |
t)))) |
2236 |
|
|
2237 |
(defun tex-alt-print () |
(defun tex-alt-print () |