mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-27 07:37:33 +00:00
Code Issues Releases Activity

(tex-command-end): New variable.

Browse Source 
(tex-start-tex): Use it.
(plain-tex-mode): Locally set tex-command-end.
(tex-common-initialization): Make local binding for it.x
This commit is contained in:
Richard M. Stallman 1998-05-19 04:27:28 +00:00
parent a9f0a989a1
commit 1ea3de08e7
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/textmodes/tex-mode.el
View File

@ -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)