[Emacs-diffs] Changes to emacs/lisp/textmodes/tex-mode.el

[Stefan Monnier]

Index: emacs/lisp/textmodes/tex-mode.el
diff -c emacs/lisp/textmodes/tex-mode.el:1.172 
emacs/lisp/textmodes/tex-mode.el:1.173
*** emacs/lisp/textmodes/tex-mode.el:1.172      Wed Aug 31 10:32:22 2005
--- emacs/lisp/textmodes/tex-mode.el    Fri Sep  2 18:24:29 2005
***************
*** 1580,1591 ****
             (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 background "&" ""))))
        ;; Switch to buffer before checking for subproc output in it.
        (set-buffer buf)
--- 1580,1593 ----
             (star (string-match "\\*" cmd))
           (string
            (concat
!            (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,1769 ****
         (save-excursion
           (goto-char (point-max))
           (and (re-search-backward
!                "(see the transcript file for additional information)" nil t)
                (> (save-excursion
                     (or (re-search-backward "\\[[0-9]+\\]" nil t)
                         (point-min)))
--- 1765,1775 ----
         (save-excursion
           (goto-char (point-max))
           (and (re-search-backward
!                  (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,1952 ****
                                        default-directory))))
              (not dir))
      (let (shell-dirtrack-verbose)
!       (tex-send-command tex-shell-cd-command
!                       (concat "\"" (convert-standard-filename dir) "\""))))
    (with-current-buffer (process-buffer (tex-send-command cmd))
      (setq compilation-last-buffer (current-buffer))
      (compilation-forget-errors)
--- 1951,1957 ----
                                        default-directory))))
              (not dir))
      (let (shell-dirtrack-verbose)
!       (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,2318 ****
        (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-bibtex-command tex-out-file))
    (tex-display-shell))
  
--- 2316,2322 ----
        (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 file-dir)
      (tex-send-command tex-bibtex-command tex-out-file))
    (tex-display-shell))