Commit 8ca66348 authored by Stefan Monnier's avatar Stefan Monnier
Browse files

(tex-send-tex-command, tex-bibtex-file): Undo last change.

Enclosing the result in quotes broke things on Unix since tex-send-command
passes it through shell-quote-argument.
(tex-send-command): Pass `file' through convert-standard-filename if possible.
(tex-uptodate-p): Handle the case where TeX hasn't put additional
info in a transcript.
parent f47877ee
......@@ -1580,12 +1580,14 @@ Return the process in which TeX is running."
(star (string-match "\\*" cmd))
(string
(concat
(if file
(if star (concat (substring cmd 0 star)
(shell-quote-argument file)
(substring cmd (1+ star)))
(concat cmd " " (shell-quote-argument file)))
cmd)
(if (null file)
cmd
(if (file-name-absolute-p file)
(setq file (convert-standard-filename file)))
(if star (concat (substring cmd 0 star)
(shell-quote-argument file)
(substring cmd (1+ star)))
(concat cmd " " (shell-quote-argument file))))
(if background "&" ""))))
;; Switch to buffer before checking for subproc output in it.
(set-buffer buf)
......@@ -1763,7 +1765,11 @@ FILE is typically the output DVI or PDF file."
(save-excursion
(goto-char (point-max))
(and (re-search-backward
"(see the transcript file for additional information)" nil t)
(concat
"(see the transcript file for additional information)"
"\\|^Output written on .*"
(regexp-quote (file-name-nondirectory file))
" (.*)\\.") nil t)
(> (save-excursion
(or (re-search-backward "\\[[0-9]+\\]" nil t)
(point-min)))
......@@ -1945,8 +1951,7 @@ FILE is typically the output DVI or PDF file."
default-directory))))
(not dir))
(let (shell-dirtrack-verbose)
(tex-send-command tex-shell-cd-command
(concat "\"" (convert-standard-filename dir) "\""))))
(tex-send-command tex-shell-cd-command dir)))
(with-current-buffer (process-buffer (tex-send-command cmd))
(setq compilation-last-buffer (current-buffer))
(compilation-forget-errors)
......@@ -2311,8 +2316,7 @@ Runs the shell command defined by `tex-show-queue-command'."
(tex-out-file
(tex-append (file-name-nondirectory (buffer-file-name)) ""))
(file-dir (file-name-directory (buffer-file-name))))
(tex-send-command tex-shell-cd-command
(concat "\"" (convert-standard-filename file-dir) "\""))
(tex-send-command tex-shell-cd-command file-dir)
(tex-send-command tex-bibtex-command tex-out-file))
(tex-display-shell))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment