# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 775681242 0
# Node ID 38513039d818d0913a0af7213f9f5a0a5bd7f7fe
# Parent  4cb8a2ab8f6055f034fa0718c9d831cad35d7822
(compilation-error-regexp-alist): Make separate
regexp for Borland C++; the combined one matched too much.

diff -r 4cb8a2ab8f60 -r 38513039d818 lisp/progmodes/compile.el
--- a/lisp/progmodes/compile.el	Sun Jul 31 18:22:04 1994 +0000
+++ b/lisp/progmodes/compile.el	Sun Jul 31 19:00:42 1994 +0000
@@ -108,9 +108,6 @@
     ;; 	foo.c:8: error message
     ;; or HP-UX 7.0 fc:
     ;; 	foo.f          :16    some horrible error message
-    ;; or Borland C++:
-    ;;  Error ping.c 15: Unable to open include file 'sys/types.h'
-    ;;  Warning ping.c 68: Call to function 'func' with no prototype
     ;;
     ;; We refuse to match  file:number:number
     ;; because we want to leave that for another case (see below, GNAT).
@@ -118,8 +115,13 @@
     ;; 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.
-    ("\n\\(Error \\|Warning \\)?[ \t]*\\([^:( \t\n]+\\)\
-\[:(]?[ \t]*\\([0-9]+\\)\\([) \t]\\|:[^0-9\n]\\)" 2 3)
+    ("\n\\([^:( \t\n]+\\)[:(][ \t]*\\([0-9]+\\)\\([) \t]\\|:[^0-9\n]\\)" 2 3)
+
+    ;; Borland C++:
+    ;;  Error ping.c 15: Unable to open include file 'sys/types.h'
+    ;;  Warning ping.c 68: Call to function 'func' with no prototype
+    ("\n\\(Error\\|Warning\\) \\([^:( \t\n]+\\)\
+ \\([0-9]+\\)\\([) \t]\\|:[^0-9\n]\\)" 2 3)
 
     ;; 4.3BSD lint pass 2
     ;; 	strcmp: variable # of args. llib-lc(359)  ::  /usr/src/foo/foo.c(8)