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

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1b36d520c6414fc3b8ee0ae71ad0bdb3bbd94dc9..31bb11e76ccb0fa2fd390ca8dd9a3034a6d012c2 100644 (file)
--- 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 799f108146fc3e8ee741892efa36e154ef3c0dda..1649a2533ba683f4be7ebd27929b53b7d24c578f 100644 (file)
--- 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'.")