# HG changeset patch
# User Roland McGrath <roland@gnu.org>
# Date 717811166 0
# Node ID 539564299c1fb7302d6dd5e2e6e56c62bf12c0ad
# Parent  db6ef357ba3e4817902dce3ecef284bb466fd5a5
(compilation-parse-errors): When we reach FIND-AT-LEAST errors, keep going
until we have seen all the consecutive errors in the same file.

diff -r db6ef357ba3e -r 539564299c1f lisp/progmodes/compile.el
--- 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!")))