# HG changeset patch
# User Roland McGrath <roland@gnu.org>
# Date 800153091 0
# Node ID 34dbef732b27da7dc3bc38a771ff33f233954eff
# Parent  7a24391fc9557f4facb4c26d0f9bf4baad13e126
(compilation-error-regexp-alist): Add regexps for IBM and Cray compilers.
(compilation-next-error-locus): Ignore a column number that is zero.

diff -r 7a24391fc955 -r 34dbef732b27 lisp/progmodes/compile.el
--- a/lisp/progmodes/compile.el	Wed May 10 23:38:12 1995 +0000
+++ b/lisp/progmodes/compile.el	Thu May 11 00:44:51 1995 +0000
@@ -180,6 +180,15 @@
     ;; GNU messages with program name and optional column number.
     ("\n[^0-9 \n\t:]+:[ \t]*\\([^ \n\t:]+\\):\
 \\([0-9]+\\):\\(\\([0-9]+\\)[: \t]\\)?" 1 2 4)
+
+    ;; Cray C compiler error messages
+    ("\n\\(cc\\| cft\\)-[0-9]+ c\\(c\\|f77\\): ERROR \\([^,]+, \\)* File = \\([^,]+\\), Line = \\([0-9]+\\)" 4 5)
+
+    ;; IBM C/C++ Tools 2.01:
+    ;;  foo.c(2:0) : informational EDC0804: Function foo is not referenced.
+    ;;  foo.c(3:8) : warning EDC0833: Implicit return statement encountered.
+    ;;  foo.c(5:5) : error EDC0350: Syntax error.
+    ("\n *\\([^(]+\\)(\\([0-9]+\\):\\([0-9]+\\)) : " 1 2 3)
     )
   "Alist that specifies how to match errors in compiler output.
 Each elt has the form (REGEXP FILE-IDX LINE-IDX [COLUMN-IDX FILE-FORMAT...])
@@ -1003,7 +1012,7 @@
 			    (save-restriction
 			      (widen)
 			      (goto-line last-line)
-			      (if column
+			      (if (and column (> column 0))
 				  ;; Columns in error msgs are 1-origin.
 				  (move-to-column (1- column))
 				(beginning-of-line))