Mercurial > emacs
changeset 42939:0786ea38f9fd
(compilation-handle-exit):
Add a compilation-handle-exit property to the "finished" message.
(compilation-parse-errors): Stop parsing when that property is seen.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 25 Jan 2002 02:36:36 +0000 |
| parents | f1689ed2433e |
| children | 7c0e12d6edb5 |
| files | lisp/progmodes/compile.el |
| diffstat | 1 files changed, 9 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/progmodes/compile.el Fri Jan 25 02:32:18 2002 +0000 +++ b/lisp/progmodes/compile.el Fri Jan 25 02:36:36 2002 +0000 @@ -1150,6 +1150,9 @@ (forward-char -1)) (insert " at " (substring (current-time-string) 0 19)) (goto-char (point-max)) + ;; Prevent that message from being recognized as a compilation error. + (add-text-properties omax (point) + (append '(compilation-handle-exit t) nil)) (setq mode-line-process (format ":%s [%s]" process-status (cdr status))) ;; Force mode line redisplay soon. (force-mode-line-update) @@ -1928,7 +1931,10 @@ (forward-line 2)) ;; Parse messages. - (while (not (or found-desired (eobp))) + (while (not (or found-desired (eobp) + ;; Don't parse the "compilation finished" message + ;; as a compilation error. + (get-text-property (point) 'compilation-handle-exit))) (let ((this compilation-regexps) (prev nil) (alist nil) type) ;; Go through the regular expressions. If a match is found, ;; variable alist is set to the corresponding alist and the @@ -2117,9 +2123,9 @@ ;; Use floating-point because (* 100 (point)) frequently ;; exceeds the range of Emacs Lisp integers. (/ (* 100.0 (point)) (point-max))) - )) + ))) - (forward-line 1))) ; End of while loop. Look at next line. + (forward-line 1)) ; End of while loop. Look at next line. (set-marker compilation-parsing-end (point)) (setq compilation-error-list (nreverse compilation-error-list))