Mercurial > emacs
changeset 1271:539564299c1f
(compilation-parse-errors): When we reach FIND-AT-LEAST errors, keep going
until we have seen all the consecutive errors in the same file.
| author | Roland McGrath <roland@gnu.org> |
|---|---|
| date | Tue, 29 Sep 1992 23:59:26 +0000 |
| parents | db6ef357ba3e |
| children | bfd04f61eb16 |
| files | lisp/progmodes/compile.el |
| diffstat | 1 files changed, 8 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/progmodes/compile.el Tue Sep 29 22:19:48 1992 +0000 +++ b/lisp/progmodes/compile.el Tue Sep 29 23:59:26 1992 +0000 @@ -942,9 +942,16 @@ (cons (cons (point-marker) (cons filename linenum)) compilation-error-list)))) - (setq compilation-num-errors-found (1+ compilation-num-errors-found)) + (setq compilation-num-errors-found + (1+ compilation-num-errors-found)) (and find-at-least (>= compilation-num-errors-found find-at-least) ;; We have found as many new errors as the user wants. + ;; We continue to parse until we have seen all + ;; the consecutive errors in the same file, + ;; so the error positions will be recorded as markers + ;; in this buffer that might change. + (not (equal (car (cdr (nth 0 compilation-error-list))) + (car (cdr (nth 1 compilation-error-list))))) (setq found-desired t))) (t (error "compilation-parse-errors: impossible regexp match!")))