shell-quote-argument, not comint-quote-filename

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 157e03282c4031501a777255350d8f1f5b637357..f123732ed9e149df0e975da1613a7e43bbd85d67 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,13 @@
+2005-03-31  Karl Berry  <karl@freefriends.org>
+
+       * textmodes/tex-mode.el (tex-compile): shell-quote-argument,
+       not comint-quote-filename.
+
+2005-03-31  Olive Lin  <olive.lin@versateladsl.be> (tiny change)
+
+       * textmodes/tex-mode.el (tex-start-tex) shell-quote-argument,
+       not comint-quote-filename.
+
 2005-03-31  Thien-Thi Nguyen  <ttn@gnu.org>
 
        * help-fns.el (help-with-tutorial): Revert last change.
@@ -157,7 +167,7 @@
        * vc.el (vc-do-command): Use a pipe for async processes, so password
        prompts don't show up at places where the user can't reply.
 
-2005-03-29  Olive Lin  <olive.lin@versateladsl.be>
+2005-03-29  Olive Lin  <olive.lin@versateladsl.be> (tiny change)
 
        * textmodes/tex-mode.el (tex-send-command): shell-quote-argument
        on the file name we pass to the inferior shell.

diff --git a/lisp/textmodes/tex-mode.el b/lisp/textmodes/tex-mode.el
index 285f25dec882f0307df72c0a82728ca5fd36f4e4..cc9ed23c6be93975f55802069c999bb4d3e72c07 100644 (file)
--- a/lisp/textmodes/tex-mode.el
+++ b/lisp/textmodes/tex-mode.el
@@ -1887,8 +1887,8 @@ FILE is typically the output DVI or PDF file."
            (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))))
+         (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,14 +1909,14 @@ FILE is typically the output DVI or PDF file."
          (compile-command
           (if star
              (concat (substring command 0 star)
-                     (comint-quote-filename file)
+                     (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) " "))
-                   (comint-quote-filename file)))))
+                   (shell-quote-argument file)))))
     (tex-send-tex-command compile-command dir)))
 
 (defun tex-send-tex-command (cmd &optional dir)