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

1 files changed, 4 insertions, 4 deletions

diff --git a/lisp/textmodes/tex-mode.el b/lisp/textmodes/tex-mode.el
index 285f25dec88..cc9ed23c6be 100644
--- 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)