Mercurial > emacs
comparison lisp/textmodes/tex-mode.el @ 80641:f54ac2f1f062
(tex-compilation-parse-errors): Check for
invalid filename strings when parsing tex errors (bug#376).
| author | Chong Yidong <cyd@stupidchicken.com> |
|---|---|
| date | Fri, 25 Jul 2008 18:41:50 +0000 |
| parents | dc100f64b2b7 |
| children |
comparison
equal
deleted
inserted
replaced
| 80640:86922f21ad77 | 80641:f54ac2f1f062 |
|---|---|
| 2045 (or errfilename | 2045 (or errfilename |
| 2046 (save-excursion | 2046 (save-excursion |
| 2047 (with-syntax-table tex-error-parse-syntax-table | 2047 (with-syntax-table tex-error-parse-syntax-table |
| 2048 (backward-up-list 1) | 2048 (backward-up-list 1) |
| 2049 (skip-syntax-forward "(_") | 2049 (skip-syntax-forward "(_") |
| 2050 (while (not (file-readable-p (thing-at-point 'filename))) | 2050 (while (not |
| 2051 (and (setq try-filename (thing-at-point | |
| 2052 'filename)) | |
| 2053 (not (string= "" try-filename)) | |
| 2054 (file-readable-p try-filename))) | |
| 2051 (skip-syntax-backward "(_") | 2055 (skip-syntax-backward "(_") |
| 2052 (backward-up-list 1) | 2056 (backward-up-list 1) |
| 2053 (skip-syntax-forward "(_")) | 2057 (skip-syntax-forward "(_")) |
| 2054 (thing-at-point 'filename))))) | 2058 (thing-at-point 'filename))))) |
| 2055 (new-file | 2059 (new-file |