[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.159 
emacs/lisp/textmodes/tex-mode.el:1.160
*** emacs/lisp/textmodes/tex-mode.el:1.159      Tue Mar 29 14:56:14 2005
--- emacs/lisp/textmodes/tex-mode.el    Thu Mar 31 00:24:57 2005
***************
*** 1887,1894 ****
            (prog1 (file-name-directory (expand-file-name file))
              (setq file (file-name-nondirectory file))))
          (root (file-name-sans-extension file))
!         (fspec (list (cons ?r (comint-quote-filename root))
!                      (cons ?f (comint-quote-filename file))))
          (default (tex-compile-default fspec)))
       (list default-directory
           (completing-read
--- 1887,1894 ----
            (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
***************
*** 1909,1922 ****
           (compile-command
            (if star
              (concat (substring command 0 star)
!                     (comint-quote-filename file)
                      (substring command (1+ star)))
              (concat command " "
                    tex-start-options
                    (if (< 0 (length tex-start-commands))
                        (concat
                         (shell-quote-argument tex-start-commands) " "))
!                   (comint-quote-filename file)))))
      (tex-send-tex-command compile-command dir)))
  
  (defun tex-send-tex-command (cmd &optional dir)
--- 1909,1922 ----
           (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)