mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-31 20:02:42 +00:00
Code Issues Releases Activity

(compilation-parse-errors): After we get enough errors to stop early, toss

Browse Source 
the last one (which is for a different file), so we don't lose
the same way on the next run.
This commit is contained in:
Roland McGrath 1992-09-30 01:45:47 +00:00
parent 7855e674d7
commit 41acdfa97a
1 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
lisp/progmodes/compile.el
View File

@ -918,7 +918,7 @@ See variable `compilation-parse-errors-function' for the interface it uses."
(setq alist (cdr alist)))
(if alist
(setq alist (car alist))
(error "Impossible regexp match!"))
(error "compilation-parse-errors: Impossible regexp match!"))
;; Extract the file name and line number from the error message.
(let ((filename
@ -952,7 +952,16 @@ See variable `compilation-parse-errors-function' for the interface it uses."
;; 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)))
(progn
;; Discard the error just parsed, so that the next
;; parsing run can get it and the following errors in
;; the same file all at once. If we didn't do this, we
;; would have the same problem we are trying to avoid
;; with the test above, just delayed until the next run!
(setq compilation-error-list (cdr compilation-error-list))
(goto-char (match-beginning 0))
(setq found-desired t)))
)
(t
(error "compilation-parse-errors: impossible regexp match!")))