diff lisp/progmodes/compile.el @ 11791:34dbef732b27

(compilation-error-regexp-alist): Add regexps for IBM and Cray compilers. (compilation-next-error-locus): Ignore a column number that is zero.

--- 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))