# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 775701566 0
# Node ID 849045d64643835a40735123126f2d520856eef1
# Parent  8b5d6aba9b46954ff4cb5708f015a4f6b2213390
(compilation-error-regexp-alist): Fix previous change.
Add alternatives for GNU error messages with program name in them.

diff -r 8b5d6aba9b46 -r 849045d64643 lisp/progmodes/compile.el
--- a/lisp/progmodes/compile.el	Sun Jul 31 23:20:58 1994 +0000
+++ b/lisp/progmodes/compile.el	Mon Aug 01 00:39:26 1994 +0000
@@ -115,7 +115,12 @@
     ;; 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\\([^:( \t\n]+\\)[:(][ \t]*\\([0-9]+\\)\\([) \t]\\|:[^0-9\n]\\)" 2 3)
+    ("\n\\([^:( \t\n]+\\)[:(][ \t]*\\([0-9]+\\)\\([) \t]\\|:[^0-9\n]\\)" 1 2)
+
+    ;; GNU error message with a program name in it.
+    ;;  compilername:file:linenum: error message
+    ("\n\\([^:( \t\n]+\\):\\([^:( \t\n]+\\):[ \t]*\\([0-9]+\\)\\(:[^0-9\n]\\)"
+     2 3)
 
     ;; Borland C++:
     ;;  Error ping.c 15: Unable to open include file 'sys/types.h'
@@ -177,6 +182,10 @@
     ;; GNAT compiler v1.82
     ;; foo.adb:2:1: Unit name does not match file name
     ("\n\\([^ \n\t:]+\\):\\([0-9]+\\):\\([0-9]+\\)[: \t]" 1 2 3)
+
+    ;; GNU message with program name and column number.
+    ("\n\\([^ \n\t:]+\\):\\([^ \n\t:]+\\):\
+\\([0-9]+\\):\\([0-9]+\\)[: \t]" 2 3 4)
     )
   "Alist that specifies how to match errors in compiler output.
 Each element has the form (REGEXP FILE-IDX LINE-IDX [COLUMN-IDX]).