diff options
| -rw-r--r-- | lisp/progmodes/compile.el | 16 |
1 files changed, 10 insertions, 6 deletions
diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el index 592eb7b0c13..752d278033c 100644 --- a/lisp/progmodes/compile.el +++ b/lisp/progmodes/compile.el | |||
| @@ -1077,12 +1077,16 @@ See variable `compilation-parse-errors-function' for the interface it uses." | |||
| 1077 | ;; location, and the file and line number of the error. | 1077 | ;; location, and the file and line number of the error. |
| 1078 | (save-excursion | 1078 | (save-excursion |
| 1079 | (beginning-of-line 1) | 1079 | (beginning-of-line 1) |
| 1080 | (setq compilation-error-list | 1080 | (let ((this (cons (point-marker) |
| 1081 | (cons (cons (point-marker) | 1081 | (cons filename linenum)))) |
| 1082 | (cons filename linenum)) | 1082 | ;; Don't add the same source line more than once. |
| 1083 | compilation-error-list))) | 1083 | (if (equal (cdr this) (cdr (car compilation-error-list))) |
| 1084 | (setq compilation-num-errors-found | 1084 | nil |
| 1085 | (1+ compilation-num-errors-found)) | 1085 | (setq compilation-error-list |
| 1086 | (cons this | ||
| 1087 | compilation-error-list)) | ||
| 1088 | (setq compilation-num-errors-found | ||
| 1089 | (1+ compilation-num-errors-found))))) | ||
| 1086 | (and find-at-least (>= compilation-num-errors-found | 1090 | (and find-at-least (>= compilation-num-errors-found |
| 1087 | find-at-least) | 1091 | find-at-least) |
| 1088 | ;; We have found as many new errors as the user wants. | 1092 | ;; We have found as many new errors as the user wants. |