Mercurial > emacs
comparison lisp/progmodes/compile.el @ 936:d91c2a61a3ad
*** empty log message ***
author | Roland McGrath <roland@gnu.org> |
---|---|
date | Tue, 04 Aug 1992 22:31:21 +0000 |
parents | 7aa20c8e89b7 |
children | ef045ff2cb94 |
comparison
equal
deleted
inserted
replaced
935:7aa20c8e89b7 | 936:d91c2a61a3ad |
---|---|
465 ;; Skip past the other errors for this file. | 465 ;; Skip past the other errors for this file. |
466 (while (string= file | 466 (while (string= file |
467 (compile-file-of-error | 467 (compile-file-of-error |
468 (car (or errors | 468 (car (or errors |
469 (if reversed | 469 (if reversed |
470 (error "This is the first erring file") | 470 (error "%s the first erring file" file) |
471 (let ((compilation-error-list nil)) | 471 (let ((compilation-error-list nil)) |
472 ;; Parse some more. | 472 ;; Parse some more. |
473 (compile-reinitialize-errors nil nil 2) | 473 (compile-reinitialize-errors nil nil 2) |
474 (setq errors compilation-error-list))) | 474 (setq errors compilation-error-list))) |
475 (error "This is the last erring file"))))) | 475 (error "%s is the last erring file" file))))) |
476 (setq errors (cdr errors))) | 476 (setq errors (cdr errors))) |
477 | 477 |
478 (setq n (1- n))) | 478 (setq n (1- n))) |
479 | 479 |
480 ;; Move to the following error. | 480 ;; Move to the following error. |