(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")
(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
(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)