Mercurial > emacs
comparison lisp/textmodes/tex-mode.el @ 23322:26cc35857be5
(tex-run-command): Doc fix.
(tex-start-tex): Don't use tex-start-options-string in star case.
Quote file name in star case as well as in non-star.
Add blank and quoting of option string here.
(tex-start-options-string): Not here.
author | Karl Heuer <kwzh@gnu.org> |
---|---|
date | Fri, 25 Sep 1998 20:30:42 +0000 |
parents | 4fe2d7d673cb |
children | 62a7f47017b3 |
comparison
equal
deleted
inserted
replaced
23321:b352f37246ba | 23322:26cc35857be5 |
---|---|
89 | 89 |
90 ;;;###autoload | 90 ;;;###autoload |
91 (defcustom tex-run-command "tex" | 91 (defcustom tex-run-command "tex" |
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 value of tex-start-options-string and the file name are added |
95 at the end, with blanks as separators." | |
95 :type 'string | 96 :type 'string |
96 :group 'tex-run) | 97 :group 'tex-run) |
97 | 98 |
98 (defcustom tex-start-options-string " \\\\nonstopmode\\\\input" | 99 (defcustom tex-start-options-string "\\nonstopmode\\input" |
99 "*TeX options to use when running TeX. | 100 "*TeX options to use when running TeX. |
100 These precede the input file name." | 101 These precede the input file name." |
101 :type 'string | 102 :type 'string |
102 :group 'tex-run | 103 :group 'tex-run |
103 :version "20.4") | 104 :version "20.4") |
1070 (defvar tex-start-tex-marker nil | 1071 (defvar tex-start-tex-marker nil |
1071 "Marker pointing after last TeX-running command in the TeX shell buffer.") | 1072 "Marker pointing after last TeX-running command in the TeX shell buffer.") |
1072 | 1073 |
1073 (defun tex-start-tex (command file) | 1074 (defun tex-start-tex (command file) |
1074 "Start a TeX run, using COMMAND on FILE." | 1075 "Start a TeX run, using COMMAND on FILE." |
1075 (let* ((cmd (concat command tex-start-options-string)) | 1076 (let* ((star (string-match "\\*" command)) |
1076 (star (string-match "\\*" cmd)) | |
1077 (compile-command | 1077 (compile-command |
1078 (if star (concat (substring cmd 0 star) | 1078 (if star |
1079 file (substring cmd (1+ star))) | 1079 (concat (substring command 0 star) |
1080 (concat cmd " " (comint-quote-filename file))))) | 1080 (comint-quote-filename file) |
1081 (substring command (1+ star))) | |
1082 (concat command " " | |
1083 (comint-quote-filename tex-start-options-string) " " | |
1084 (comint-quote-filename file))))) | |
1081 (with-current-buffer (process-buffer (tex-send-command compile-command)) | 1085 (with-current-buffer (process-buffer (tex-send-command compile-command)) |
1082 (save-excursion | 1086 (save-excursion |
1083 (forward-line -1) | 1087 (forward-line -1) |
1084 (setq tex-start-tex-marker (point-marker))) | 1088 (setq tex-start-tex-marker (point-marker))) |
1085 (make-local-variable 'compilation-parse-errors-function) | 1089 (make-local-variable 'compilation-parse-errors-function) |
1446 (run-hooks 'tex-mode-load-hook) | 1450 (run-hooks 'tex-mode-load-hook) |
1447 | 1451 |
1448 (provide 'tex-mode) | 1452 (provide 'tex-mode) |
1449 | 1453 |
1450 ;;; tex-mode.el ends here | 1454 ;;; tex-mode.el ends here |
1451 |