diff options
author | Richard M. Stallman <rms@gnu.org> | 1998-05-19 04:27:28 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 1998-05-19 04:27:28 +0000 |
commit | 05debb7def0237b3ad15408b2d5ce073873d4d41 (patch) | |
tree | 4225858bf71b6329d554733a8c8247d6bb2776e0 | |
parent | 9deac83199cdbd5d3231f35022f6129fb8a3edf5 (diff) | |
download | emacs-05debb7def0237b3ad15408b2d5ce073873d4d41.tar.gz |
(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
-rw-r--r-- | lisp/textmodes/tex-mode.el | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/lisp/textmodes/tex-mode.el b/lisp/textmodes/tex-mode.el index 43447bcc7ab..46f30434f5d 100644 --- a/lisp/textmodes/tex-mode.el +++ b/lisp/textmodes/tex-mode.el @@ -218,6 +218,9 @@ tex shell terminates.") "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 @@ special subshell is initiated, the hook `tex-shell-hook' is run." (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 @@ Entering SliTeX mode runs the hook `text-mode-hook', then the hook 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 @@ If NOT-ALL is non-nil, save the `.dvi' file." (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) |