* progmodes/compile.el (compilation-error-regexp-alist-alist): In

`watcom' anchor regexp to start of line, to avoid slowness
(Bug#5599).

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 5613793edff32e84e712c8d5225ded45f02a2600..7dcf230045422a9f388eab6fbde363e20dd4f7e3 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2010-02-20  Kevin Ryde  <user42@zip.com.au>
+
+       * progmodes/compile.el (compilation-error-regexp-alist-alist): In
+       `watcom' anchor regexp to start of line, to avoid slowness
+       (Bug#5599).
+
 2010-02-20  Eli Zaretskii  <eliz@gnu.org>
 
        * subr.el (remove-yank-excluded-properties): Explain in a comment

diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el
index 132b9dbe8f05229b8d89dce39044db1a3cb2d966..7e013b87c197f1e4429c785be2a648fb590c5071 100644 (file)
--- a/lisp/progmodes/compile.el
+++ b/lisp/progmodes/compile.el
@@ -350,7 +350,7 @@ File = \\(.+\\), Line = \\([0-9]+\\)\\(?:, Column = \\([0-9]+\\)\\)?"
      "^\\([^, \n\t]+\\), line \\([0-9]+\\), char \\([0-9]+\\)[:., \(-]" 1 2 3)
 
     (watcom
-     "\\(\\(?:[a-zA-Z]:\\)?[^:(\t\n]+\\)(\\([0-9]+\\)): ?\
+     "^[ \t]*\\(\\(?:[a-zA-Z]:\\)?[^:(\t\n]+\\)(\\([0-9]+\\)): ?\
 \\(?:\\(Error! E[0-9]+\\)\\|\\(Warning! W[0-9]+\\)\\):"
      1 2 nil (4))