diff options
| author | Richard M. Stallman | 1999-08-28 18:22:20 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1999-08-28 18:22:20 +0000 |
| commit | ee13a145ea15e9bd352a3fd920281195e2686789 (patch) | |
| tree | c5322a19c79791b045740bff77f65154051e8bf2 | |
| parent | 5ef3e90c75faf157b2d8e32233731b89e8e8916b (diff) | |
| download | emacs-ee13a145ea15e9bd352a3fd920281195e2686789.tar.gz emacs-ee13a145ea15e9bd352a3fd920281195e2686789.zip | |
(tex-compilation-parse-errors):
Use a marker instead of an integer for `compilation-parsing-end'.
| -rw-r--r-- | lisp/textmodes/tex-mode.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/textmodes/tex-mode.el b/lisp/textmodes/tex-mode.el index c620a25fc64..80063307942 100644 --- a/lisp/textmodes/tex-mode.el +++ b/lisp/textmodes/tex-mode.el | |||
| @@ -1151,8 +1151,8 @@ for the error messages." | |||
| 1151 | ;; Single quotations may appear in errors | 1151 | ;; Single quotations may appear in errors |
| 1152 | (modify-syntax-entry ?\" "_" tex-error-parse-syntax-table) | 1152 | (modify-syntax-entry ?\" "_" tex-error-parse-syntax-table) |
| 1153 | ;; Don't parse previous compilations. | 1153 | ;; Don't parse previous compilations. |
| 1154 | (setq compilation-parsing-end | 1154 | (set-marker compilation-parsing-end |
| 1155 | (max compilation-parsing-end tex-start-tex-marker)) | 1155 | (max compilation-parsing-end tex-start-tex-marker)) |
| 1156 | ;; Don't reparse messages already seen at last parse. | 1156 | ;; Don't reparse messages already seen at last parse. |
| 1157 | (goto-char compilation-parsing-end) | 1157 | (goto-char compilation-parsing-end) |
| 1158 | ;; Parse messages. | 1158 | ;; Parse messages. |
| @@ -1217,7 +1217,7 @@ for the error messages." | |||
| 1217 | (cons (cons this-error error-location) | 1217 | (cons (cons this-error error-location) |
| 1218 | compilation-error-list)) | 1218 | compilation-error-list)) |
| 1219 | (goto-char end-of-error))))) | 1219 | (goto-char end-of-error))))) |
| 1220 | (setq compilation-parsing-end (point)) | 1220 | (set-marker compilation-parsing-end (point)) |
| 1221 | (setq compilation-error-list (nreverse compilation-error-list)) | 1221 | (setq compilation-error-list (nreverse compilation-error-list)) |
| 1222 | (message "Parsing error messages...done")) | 1222 | (message "Parsing error messages...done")) |
| 1223 | 1223 | ||