Mercurial > emacs
comparison lisp/textmodes/tex-mode.el @ 23186:a49b7294e019
(tex-start-options-string): New option.
(tex-start-tex): Use that variable.
author | Karl Heuer <kwzh@gnu.org> |
---|---|
date | Fri, 04 Sep 1998 20:39:26 +0000 |
parents | 31924d388b84 |
children | 8804b71603c6 |
comparison
equal
deleted
inserted
replaced
23185:945fed18ddb8 | 23186:a49b7294e019 |
---|---|
92 "*Command used to run TeX subjob. | 92 "*Command used to run TeX subjob. |
93 If this string contains an asterisk (`*'), that is replaced by the file name; | 93 If this string contains an asterisk (`*'), that is replaced by the file name; |
94 otherwise, the file name, preceded by blank, is added at the end." | 94 otherwise, the file name, preceded by blank, is added at the end." |
95 :type 'string | 95 :type 'string |
96 :group 'tex-run) | 96 :group 'tex-run) |
97 | |
98 (defcustom tex-start-options-string " \\\\nonstopmode\\\\input" | |
99 "*TeX options to use when running TeX. | |
100 These precede the input file name." | |
101 :type 'string | |
102 :group 'tex-run | |
103 :version "20.4") | |
97 | 104 |
98 ;;;###autoload | 105 ;;;###autoload |
99 (defcustom latex-run-command "latex" | 106 (defcustom latex-run-command "latex" |
100 "*Command used to run LaTeX subjob. | 107 "*Command used to run LaTeX subjob. |
101 If this string contains an asterisk (`*'), that is replaced by the file name; | 108 If this string contains an asterisk (`*'), that is replaced by the file name; |
1063 (defvar tex-start-tex-marker nil | 1070 (defvar tex-start-tex-marker nil |
1064 "Marker pointing after last TeX-running command in the TeX shell buffer.") | 1071 "Marker pointing after last TeX-running command in the TeX shell buffer.") |
1065 | 1072 |
1066 (defun tex-start-tex (command file) | 1073 (defun tex-start-tex (command file) |
1067 "Start a TeX run, using COMMAND on FILE." | 1074 "Start a TeX run, using COMMAND on FILE." |
1068 (let* ((cmd (concat command " \\\\nonstopmode\\\\input")) | 1075 (let* ((cmd (concat command tex-start-options-string)) |
1069 (star (string-match "\\*" cmd)) | 1076 (star (string-match "\\*" cmd)) |
1070 (compile-command | 1077 (compile-command |
1071 (if star (concat (substring cmd 0 star) | 1078 (if star (concat (substring cmd 0 star) |
1072 file (substring cmd (1+ star))) | 1079 file (substring cmd (1+ star))) |
1073 (concat cmd " " file)))) | 1080 (concat cmd " " file)))) |