From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 25 Jan 2002 02:36:36 +0000 (+0000)
Subject: (compilation-handle-exit):
X-Git-Tag: ttn-vms-21-2-B4~16992
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=470927374c511a90c9164917181912e3e67adea1;p=emacs.git

(compilation-handle-exit):
Add a compilation-handle-exit property to the "finished" message.
(compilation-parse-errors): Stop parsing when that property is seen.
---

diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el
index f6c65b56d39..ed0616aabd6 100644
--- a/lisp/progmodes/compile.el
+++ b/lisp/progmodes/compile.el
@@ -1150,6 +1150,9 @@ Turning the mode on runs the normal hook `compilation-minor-mode-hook'."
 	(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 @@ See variable `compilation-parse-errors-function' for the interface it uses."
       (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 @@ An error message with no file name and no file name has been seen earlier"))
 	       ;; 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))