Fix to `ant' compile regexp.

* lisp/progmodes/compile.el (compilation-error-regexp-alist-alist):
  Fix 2011-05-09 change to `ant' regexp.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 53fbdf00087a9216236055a297a2cd561c0c0936..7ef01205bd298e8dc71f88a6e472acac955b69ed 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -2,6 +2,8 @@
 
        * progmodes/compile.el (compilation-error-properties): Fix
        confusion between file struct and message struct (Bug#9319).
+       (compilation-error-regexp-alist-alist): Fix 2011-05-09 change to
+       `ant' regexp.
 
        * net/browse-url.el (browse-url-firefox): Don't call
        browse-url-firefox-sentinel unless using -remote (Bug#9328).

diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el
index 33bd9ff96a71086e2109196072fa1f9dfac2ac20..2fb0ac879b2a8aafd92e38bf91b3ec552fcbe911 100644 (file)
--- a/lisp/progmodes/compile.el
+++ b/lisp/progmodes/compile.el
@@ -145,7 +145,7 @@ of[ \t]+\"?\\([a-zA-Z]?:?[^\":\n]+\\)\"?:" 3 2 nil (1))
 
     (ant
      "^[ \t]*\\[[^] \n]+\\][ \t]*\\([^: \n]+\\):\\([0-9]+\\):\\(?:\\([0-9]+\\):\\([0-9]+\\):\\([0-9]+\\):\\)?\
-\\( warning\\)?" 1 (2 . 4) (3 . 5) (4))
+\\( warning\\)?" 1 (2 . 4) (3 . 5) (6))
 
     (bash
      "^\\([^: \n\t]+\\): line \\([0-9]+\\):" 1 2)