(compilation-error-regexp-alist-alist::gcov-called-line):

Don't put face on `-' lines in gcov file. Suggested by Dan Nicolaescu.

2 files changed, 7 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1b36d520c64..31bb11e76cc 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2006-05-31  Masatake YAMATO  <jet@gyve.org>
+
+        * progmodes/compile.el (compilation-error-regexp-alist-alist::gcov-called-line): 
+        Don't put face on `-' lines in gcov file.
+        Suggested by Dan Nicolaescu.
+
 2006-05-31  Nick Roberts  <nickrob@snap.net.nz>
 
         * progmodes/gud.el (gud-query-cmdline, gud-common-init): Revert
diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el
index 799f108146f..1649a2533ba 100644
--- a/lisp/progmodes/compile.el
+++ b/lisp/progmodes/compile.el
@@ -300,7 +300,7 @@ File = \\(.+\\), Line = \\([0-9]+\\)\\(?:, Column = \\([0-9]+\\)\\)?"
      "^ +\\(#####\\): +\\([0-9]+\\):.+$" nil 2 nil 2 nil
      (1 compilation-error-face))
     (gcov-called-line
-     "^ +[-0-9]+: +\\([1-9]\\|[0-9]\\{2,\\}\\):.*$" nil 1 nil 0)
+     "^ *[0-9]+: +\\([1-9]\\|[0-9]\\{2,\\}\\):.*$" nil 1 nil 0)
 )
   "Alist of values for `compilation-error-regexp-alist'.")