[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.164 
emacs/lisp/textmodes/tex-mode.el:1.165
*** emacs/lisp/textmodes/tex-mode.el:1.164      Sat May 28 16:57:21 2005
--- emacs/lisp/textmodes/tex-mode.el    Mon May 30 20:37:31 2005
***************
*** 1633,1643 ****
  (defvar tex-compile-commands
    '(((concat "pdf" tex-command
             " " (if (< 0 (length tex-start-commands))
!                    tex-start-commands) " %f")
       t "%r.pdf")
      ((concat tex-command
             " " (if (< 0 (length tex-start-commands))
!                    tex-start-commands) " %f")
       t "%r.dvi")
      ("yap %r &" "%r.dvi")
      ("xdvi %r &" "%r.dvi")
--- 1633,1643 ----
  (defvar tex-compile-commands
    '(((concat "pdf" tex-command
             " " (if (< 0 (length tex-start-commands))
!                    (shell-quote-argument tex-start-commands)) " %f")
       t "%r.pdf")
      ((concat tex-command
             " " (if (< 0 (length tex-start-commands))
!                    (shell-quote-argument tex-start-commands)) " %f")
       t "%r.dvi")
      ("yap %r &" "%r.dvi")
      ("xdvi %r &" "%r.dvi")
***************
*** 1900,1907 ****
            (prog1 (file-name-directory (expand-file-name file))
              (setq file (file-name-nondirectory file))))
          (root (file-name-sans-extension file))
!         (fspec (list (cons ?r root)
!                      (cons ?f file)))
          (default (tex-compile-default fspec)))
       (list default-directory
           (completing-read
--- 1900,1907 ----
            (prog1 (file-name-directory (expand-file-name file))
              (setq file (file-name-nondirectory file))))
          (root (file-name-sans-extension file))
!         (fspec (list (cons ?r (shell-quote-argument root))
!                      (cons ?f (shell-quote-argument file))))
          (default (tex-compile-default fspec)))
       (list default-directory
           (completing-read
***************
*** 1922,1934 ****
           (compile-command
            (if star
              (concat (substring command 0 star)
!                     file
                      (substring command (1+ star)))
              (concat command " "
                    tex-start-options
                    (if (< 0 (length tex-start-commands))
!                       (concat tex-start-commands " "))
!                   file))))
      (tex-send-tex-command compile-command dir)))
  
  (defun tex-send-tex-command (cmd &optional dir)
--- 1922,1935 ----
           (compile-command
            (if star
              (concat (substring command 0 star)
!                     (shell-quote-argument file)
                      (substring command (1+ star)))
              (concat command " "
                    tex-start-options
                    (if (< 0 (length tex-start-commands))
!                       (concat
!                        (shell-quote-argument tex-start-commands) " "))
!                   (shell-quote-argument file)))))
      (tex-send-tex-command compile-command dir)))
  
  (defun tex-send-tex-command (cmd &optional dir)