(compilation-error-regexp-alist): Allow initial

program name in first pattern.

diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el
index 7b9b9085b3678b988ef63e1713ce13f24c0c8f91..53c291825f49791215fa1b636ca5a60d821c1f0c 100644 (file)
--- a/lisp/progmodes/compile.el
+++ b/lisp/progmodes/compile.el
@@ -150,12 +150,14 @@ or when it is used with \\[next-error] or \\[compile-goto-error].")
     ;;         foo.f          :16    some horrible error message
     ;; or GNU utilities with column (GNAT 1.82):
     ;;   foo.adb:2:1: Unit name does not match file name
+    ;; or with column and program name:
+    ;;   jade:dbcommon.dsl:133:17:E: missing argument for function call
     ;;
     ;; 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.
-    ("\\([a-zA-Z]?:?[^:( \t\n]+\\)[:(][ \t]*\\([0-9]+\\)\\([) \t]\\|\
-:\\([^0-9\n]\\|\\([0-9]+:\\)\\)\\)" 1 2 5)
+    ("\\([a-zA-Z]+:\\)?\\([a-zA-Z]?:?[^:( \t\n]+\\)[:(][ \t]*\\([0-9]+\\)\
+\\([) \t]\\|:\\([^0-9\n]\\|\\([0-9]+:\\)\\)\\)" 2 3 6)
 
     ;; Microsoft C/C++:
     ;;  keyboard.c(537) : warning C4005: 'min' : macro redefinition