From: Richard M. Stallman Date: Tue, 19 May 1998 04:27:28 +0000 (+0000) Subject: (tex-command-end): New variable. X-Git-Tag: emacs-20.3~938 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1ea3de08e7a5087968ce8f405b1e570b36811a61;p=emacs.git (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 --- 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)