changeset 8288:8695e414a2b1

(compilation-error-regexp-alist): Allow `(' after linenum in "FILE", line LINENUM. Add backslash so C-M-a works.
author Richard M. Stallman <rms@gnu.org>
date Tue, 19 Jul 1994 20:03:12 +0000
parents 97c2535b7f37
children e6f91355333e
files lisp/progmodes/compile.el
diffstat 1 files changed, 4 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/progmodes/compile.el	Tue Jul 19 19:35:43 1994 +0000
+++ b/lisp/progmodes/compile.el	Tue Jul 19 20:03:12 1994 +0000
@@ -116,7 +116,7 @@
     ;; 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]" 2 3)
+\[:(]?[ \t]*\\([0-9]+\\)[:) \t]" 2 3)
 
     ;; 4.3BSD lint pass 2
     ;; 	strcmp: variable # of args. llib-lc(359)  ::  /usr/src/foo/foo.c(8)
@@ -149,7 +149,9 @@
     ;;  File "foobar.ml", lines 5-8, characters 20-155: blah blah
     ;; Microtec mcc68k:
     ;;  "foo.c", line 32 pos 1; (E) syntax error; unexpected symbol: "lossage"
-    ("\"\\([^,\" \n\t]+\\)\", lines? \\([0-9]+\\)[:., -]" 1 2)
+    ;; GNAT (as of July 94): 
+    ;;  "foo.adb", line 2(11): warning: file name does not match ...
+    ("\"\\([^,\" \n\t]+\\)\", lines? \\([0-9]+\\)[:., (-]" 1 2)
 
     ;; MIPS RISC CC - the one distributed with Ultrix:
     ;;	ccom: Error: foo.c, line 2: syntax error