Mercurial > emacs
changeset 22139:4a0e11be3592
(tex-command-end): New variable.
(tex-start-tex): Use it.
(plain-tex-mode): Locally set tex-command-end.
(tex-common-initialization): Make local binding for it.x
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 19 May 1998 04:27:28 +0000 |
| parents | d4ac295a98b3 |
| children | 26e470569368 |
| files | lisp/textmodes/tex-mode.el |
| diffstat | 1 files changed, 6 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/textmodes/tex-mode.el Tue May 19 03:45:57 1998 +0000 +++ b/lisp/textmodes/tex-mode.el Tue May 19 04:27:28 1998 +0000 @@ -218,6 +218,9 @@ "Command to run TeX. The name of the file, preceded by a blank, will be added to this string.") +(defvar tex-command-end "" + "String to add to the end of the command to run TeX.") + (defvar tex-trailer nil "String appended after the end of a region sent to TeX by \\[tex-region].") @@ -484,6 +487,7 @@ (setq mode-name "TeX") (setq major-mode 'plain-tex-mode) (setq tex-command tex-run-command) + (setq tex-command-end " \\\\nonstopmode\\\\input") (setq tex-start-of-header "%\\*\\*start of header") (setq tex-end-of-header "%\\*\\*end of header") (setq tex-trailer "\\bye\n") @@ -709,6 +713,7 @@ facemenu-end-add-face "}" facemenu-remove-face-function t) (make-local-variable 'tex-command) + (make-local-variable 'tex-command-end) (make-local-variable 'tex-start-of-header) (make-local-variable 'tex-end-of-header) (make-local-variable 'tex-trailer)) @@ -1062,7 +1067,7 @@ (defun tex-start-tex (command file) "Start a TeX run, using COMMAND on FILE." - (let* ((cmd (concat command " \\\\nonstopmode\\\\input")) + (let* ((cmd (concat command text-command-end)) (star (string-match "\\*" cmd)) (compile-command (if star (concat (substring cmd 0 star)