[Emacs-diffs] /srv/bzr/emacs/trunk r104165: Various fixes to compilation-error-regexp-alist-alist.

[Chong Yidong]

------------------------------------------------------------
revno: 104165
committer: Chong Yidong <address@hidden>
branch nick: trunk
timestamp: Sun 2011-05-08 21:24:00 -0400
message:
  Various fixes to compilation-error-regexp-alist-alist.
  
  * lisp/progmodes/compile.el (compilation-error-regexp-alist-alist): Fix
  the ant regexp to handle end-line and end-column info from jikes.
  Re-introduce maven regexp.  Give the ruby-Test::Unit regexp a
  higher priority to avoid clobbering by gnu.
modified:
  lisp/ChangeLog
  lisp/progmodes/compile.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-05-08 20:07:38 +0000
+++ b/lisp/ChangeLog    2011-05-09 01:24:00 +0000
@@ -1,3 +1,10 @@
+2011-05-09  Chong Yidong  <address@hidden>
+
+       * progmodes/compile.el (compilation-error-regexp-alist-alist): Fix
+       the ant regexp to handle end-line and end-column info from jikes.
+       Re-introduce maven regexp.  Give the ruby-Test::Unit regexp a
+       higher priority to avoid clobbering by gnu.
+
 2011-05-08  Chong Yidong  <address@hidden>
 
        * cus-face.el (custom-declare-face): Call custom-theme-recalc-face

=== modified file 'lisp/progmodes/compile.el'
--- a/lisp/progmodes/compile.el 2011-05-08 05:17:17 +0000
+++ b/lisp/progmodes/compile.el 2011-05-09 01:24:00 +0000
@@ -126,6 +126,9 @@
 
 (defvar compilation-num-errors-found)
 
+;; If you make any changes to `compilation-error-regexp-alist-alist',
+;; be sure to run the ERT test in test/automated/compile-tests.el.
+
 (defvar compilation-error-regexp-alist-alist
   '((absoft
      "^\\(?:[Ee]rror on \\|[Ww]arning on\\( \\)\\)?[Ll]ine[ \t]+\\([0-9]+\\)[ 
\t]+\
@@ -138,8 +141,8 @@
      " in line \\([0-9]+\\) of file \\([^ \n]+[^. \n]\\)\\.? " 2 1)
 
     (ant
-     "^[ \t]*\\[[^] \n]+\\][ \t]*\\([^: 
\n]+\\):\\([0-9]+\\):\\(?:\\([0-9]+\\):[0-9]+:[0-9]+:\\)?\
-\\( warning\\)?" 1 2 3 (4))
+     "^[ \t]*\\[[^] \n]+\\][ \t]*\\([^: 
\n]+\\):\\([0-9]+\\):\\(?:\\([0-9]+\\):\\([0-9]+\\):\\([0-9]+\\):\\)?\
+\\( warning\\)?" 1 (2 . 4) (3 . 5) (4))
 
     (bash
      "^\\([^: \n\t]+\\): line \\([0-9]+\\):" 1 2)
@@ -194,6 +197,14 @@
 
     (jikes-file
      "^\\(?:Found\\|Issued\\) .* compiling \"\\(.+\\)\":$" 1 nil nil 0)
+
+
+    ;; This used to be pathologically slow on long lines (Bug#3441),
+    ;; due to matching filenames via \\(.*?\\).  This might be faster.
+    (maven
+     ;; Maven is a popular free software build tool for Java.
+     "\\([0-9]*[^0-9\n]\\(?:[^\n :]\\| [^-/\n]\\|:[^ 
\n]\\)*?\\):\\[\\([0-9]+\\),\\([0-9]+\\)\\] " 1 2 3)
+
     (jikes-line
      "^ *\\([0-9]+\\)\\.[ \t]+.*\n +\\(<-*>\n\\*\\*\\* 
\\(?:Error\\|Warnin\\(g\\)\\)\\)"
      nil 1 nil 2 0
@@ -205,6 +216,9 @@
 \\([0-9]+\\)\\(?::\\([0-9]+\\)\\)?\\(?:\\(:\\)\\|\\(,\\|$\\)\\)?"
      1 2 3 (4 . 5))
 
+    (ruby-Test::Unit
+     "^[\t ]*\\[\\([^\(].*\\):\\([1-9][0-9]*\\)\\(\\]\\)?:in " 1 2)
+
     (gnu
      ;; The first line matches the program name for
 
@@ -257,11 +271,6 @@
                (end-of-line)
                nil)))
 
-    ;; This regexp is pathologically slow on long lines (Bug#3441).
-    ;; (maven
-    ;;  ;; Maven is a popular build tool for Java.  Maven is Free Software.
-    ;;  "\\(.*?\\):\\[\\([0-9]+\\),\\([0-9]+\\)\\]" 1 2 3)
-
     ;; Should be lint-1, lint-2 (SysV lint)
     (mips-1
      " (\\([0-9]+\\)) in \\([^ \n]+\\)" 2 1)
@@ -302,9 +311,6 @@
      "\\(?:Parse\\|Fatal\\) error: \\(.*\\) in \\(.*\\) on line \\([0-9]+\\)"
      2 3 nil nil)
 
-    (ruby-Test::Unit
-     "[\t ]*\\[\\([^\(].*\\):\\([1-9][0-9]*\\)\\(\\]\\)?:$" 1 2)
-
     (rxp
      "^\\(?:Error\\|Warnin\\(g\\)\\):.*\n.* line \\([0-9]+\\) char\
  \\([0-9]+\\) of file://\\(.+\\)"