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

[Karl Berry]

Index: emacs/lisp/textmodes/tex-mode.el
diff -c emacs/lisp/textmodes/tex-mode.el:1.163 
emacs/lisp/textmodes/tex-mode.el:1.164
*** emacs/lisp/textmodes/tex-mode.el:1.163      Fri May 27 12:59:58 2005
--- emacs/lisp/textmodes/tex-mode.el    Sat May 28 16:57:21 2005
***************
*** 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")
--- 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")
***************
*** 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
--- 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
***************
*** 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)
--- 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)
***************
*** 2232,2239 ****
          (tex-start-shell))
        (tex-send-command
         (if alt tex-alt-dvi-print-command tex-dvi-print-command)
!        (shell-quote-argument
!       print-file-name-dvi)
         t))))
  
  (defun tex-alt-print ()
--- 2231,2237 ----
          (tex-start-shell))
        (tex-send-command
         (if alt tex-alt-dvi-print-command tex-dvi-print-command)
!        print-file-name-dvi
         t))))
  
  (defun tex-alt-print ()