]> git.eshelyaron.com Git - emacs.git/commitdiff
(tex-send-tex-command, tex-bibtex-file): Undo last change.
authorStefan Monnier <monnier@iro.umontreal.ca>
Fri, 2 Sep 2005 18:24:29 +0000 (18:24 +0000)
committerStefan Monnier <monnier@iro.umontreal.ca>
Fri, 2 Sep 2005 18:24:29 +0000 (18:24 +0000)
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.

lisp/textmodes/tex-mode.el

index 7f1035251e6b1062e7c233b4c61331e1db170566..82e5a1cf5f146363e735390fc19a365a2427c1e0 100644 (file)
@@ -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))
 \f