mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 20:32:00 -08:00
Code Issues Projects Releases Wiki Activity

(tex-compile-commands, tex-compile, tex-start-tex): Undo all but the last

Browse source 
part of the 2005-05-28 change.
This commit is contained in:
Stefan Monnier 2005-05-30 20:37:31 +00:00
parent 6dfa731f20
commit d18fc93000
1 changed files with 8 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

15
lisp/textmodes/tex-mode.el
View file

@ -1633,11 +1633,11 @@ If NOT-ALL is non-nil, save the `.dvi' file."
(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 @@ 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 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 @@ FILE is typically the output DVI or PDF file."
(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)