# HG changeset patch
# User Jim Blandy <jimb@redhat.com>
# Date 725176803 0
# Node ID 817bd71e0e72812bb8dfc7aee78c096de4e972ef
# Parent  e0463f021e2fc092f6e6c8fd44baea83ee263ab7
	* compile.el (compilation-error-regexp-alist): Tightened up
	BSD/GNU regexp to insist that line number end with a colon or
	close-paren.

	* compile.el (compilation-error-regexp-alist): Add regexp for the
	MIPS CC distributed with Ultrix.

diff -r e0463f021e2f -r 817bd71e0e72 lisp/progmodes/compile.el
--- a/lisp/progmodes/compile.el	Thu Dec 24 05:59:00 1992 +0000
+++ b/lisp/progmodes/compile.el	Thu Dec 24 06:00:03 1992 +0000
@@ -96,7 +96,11 @@
     ;; /usr/src/foo/foo.c(8): warning: w may be used before set
     ;; or GNU utilities
     ;; foo.c:8: error message
-    ("^\\([^:( \t\n]+\\)[:( \t]+\\([0-9]+\\)[:) \t]" 1 2)
+    ;;
+    ;; We'll insist that the number be followed by a colon or closing
+    ;; paren, because otherwise this matches just about anything
+    ;; containing a number with spaces around it.
+    ("^\\([^:( \t\n]+\\)[:( \t]+\\([0-9]+\\)[:)]" 1 2)
     ;; 4.3BSD lint pass 2
     ;; strcmp: variable # of args. llib-lc(359)  ::  /usr/src/foo/foo.c(8)
     ("[ \t:]+\\([^:( \t\n]+\\)[ \t]*[:(]*(+[ \t]*\\([0-9]+\\))[:) \t]*$" 1 2)
@@ -119,6 +123,9 @@
     ("in line \\([0-9]+\\) of file \\([^ \n]+[^. \n]\\)\\.? " 2 1)
     ;; IBM AIX lint is too painful to do right this way.  File name
     ;; prefixes entire sections rather than being on each line.
+
+    ;; MIPS RISC CC - the one distributed with Ultrix.
+    (": \\([^,]+\\), line \\([0-9]+\\):" 1 2)
     )
   "Alist that specifies how to match errors in compiler output.
 Each element has the form (REGEXP FILE-IDX LINE-IDX).