1580 |
(star (string-match "\\*" cmd)) |
(star (string-match "\\*" cmd)) |
1581 |
(string |
(string |
1582 |
(concat |
(concat |
1583 |
(if file |
(if (null file) |
1584 |
(if star (concat (substring cmd 0 star) |
cmd |
1585 |
(shell-quote-argument file) |
(if (file-name-absolute-p file) |
1586 |
(substring cmd (1+ star))) |
(setq file (convert-standard-filename file))) |
1587 |
(concat cmd " " (shell-quote-argument file))) |
(if star (concat (substring cmd 0 star) |
1588 |
cmd) |
(shell-quote-argument file) |
1589 |
|
(substring cmd (1+ star))) |
1590 |
|
(concat cmd " " (shell-quote-argument file)))) |
1591 |
(if background "&" "")))) |
(if background "&" "")))) |
1592 |
;; Switch to buffer before checking for subproc output in it. |
;; Switch to buffer before checking for subproc output in it. |
1593 |
(set-buffer buf) |
(set-buffer buf) |
1765 |
(save-excursion |
(save-excursion |
1766 |
(goto-char (point-max)) |
(goto-char (point-max)) |
1767 |
(and (re-search-backward |
(and (re-search-backward |
1768 |
"(see the transcript file for additional information)" nil t) |
(concat |
1769 |
|
"(see the transcript file for additional information)" |
1770 |
|
"\\|^Output written on .*" |
1771 |
|
(regexp-quote (file-name-nondirectory file)) |
1772 |
|
" (.*)\\.") nil t) |
1773 |
(> (save-excursion |
(> (save-excursion |
1774 |
(or (re-search-backward "\\[[0-9]+\\]" nil t) |
(or (re-search-backward "\\[[0-9]+\\]" nil t) |
1775 |
(point-min))) |
(point-min))) |
1951 |
default-directory)))) |
default-directory)))) |
1952 |
(not dir)) |
(not dir)) |
1953 |
(let (shell-dirtrack-verbose) |
(let (shell-dirtrack-verbose) |
1954 |
(tex-send-command tex-shell-cd-command |
(tex-send-command tex-shell-cd-command dir))) |
|
(concat "\"" (convert-standard-filename dir) "\"")))) |
|
1955 |
(with-current-buffer (process-buffer (tex-send-command cmd)) |
(with-current-buffer (process-buffer (tex-send-command cmd)) |
1956 |
(setq compilation-last-buffer (current-buffer)) |
(setq compilation-last-buffer (current-buffer)) |
1957 |
(compilation-forget-errors) |
(compilation-forget-errors) |
2316 |
(tex-out-file |
(tex-out-file |
2317 |
(tex-append (file-name-nondirectory (buffer-file-name)) "")) |
(tex-append (file-name-nondirectory (buffer-file-name)) "")) |
2318 |
(file-dir (file-name-directory (buffer-file-name)))) |
(file-dir (file-name-directory (buffer-file-name)))) |
2319 |
(tex-send-command tex-shell-cd-command |
(tex-send-command tex-shell-cd-command file-dir) |
|
(concat "\"" (convert-standard-filename file-dir) "\"")) |
|
2320 |
(tex-send-command tex-bibtex-command tex-out-file)) |
(tex-send-command tex-bibtex-command tex-out-file)) |
2321 |
(tex-display-shell)) |
(tex-display-shell)) |
2322 |
|
|