Mercurial > emacs

changeset 62909:86b398407446

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(tex-compile-commands, tex-compile, tex-start-tex): Undo all but the last part of the 2005-05-28 change.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Mon, 30 May 2005 20:37:31 +0000
parents af6dffb5d180
children 4c08976ccddb
files lisp/textmodes/tex-mode.el
diffstat 1 files changed, 8 insertions(+), 7 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/textmodes/tex-mode.el	Mon May 30 18:06:02 2005 +0000
+++ b/lisp/textmodes/tex-mode.el	Mon May 30 20:37:31 2005 +0000
@@ -1633,11 +1633,11 @@
 (defvar tex-compile-commands
   '(((concat "pdf" tex-command
 	     " " (if (< 0 (length tex-start-commands))
-		     tex-start-commands) " %f")
+		     (shell-quote-argument tex-start-commands)) " %f")
      t "%r.pdf")
     ((concat tex-command
 	     " " (if (< 0 (length tex-start-commands))
-		     tex-start-commands) " %f")
+		     (shell-quote-argument tex-start-commands)) " %f")
      t "%r.dvi")
     ("yap %r &" "%r.dvi")
     ("xdvi %r &" "%r.dvi")
@@ -1900,8 +1900,8 @@
 	    (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)))
+	  (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,13 +1922,14 @@
          (compile-command
           (if star
 	      (concat (substring command 0 star)
-		      file
+		      (shell-quote-argument file)
 		      (substring command (1+ star)))
             (concat command " "
 		    tex-start-options
 		    (if (< 0 (length tex-start-commands))
-			(concat tex-start-commands " "))
-		    file))))
+			(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)