diff options
| -rw-r--r-- | lisp/progmodes/compile.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el index a6ba39450bc..9a718924877 100644 --- a/lisp/progmodes/compile.el +++ b/lisp/progmodes/compile.el | |||
| @@ -467,12 +467,12 @@ Does NOT find the source line like \\[next-error]." | |||
| 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))) |