# HG changeset patch # User Masatake YAMATO <jet@gyve.org> # Date 1149215933 0 # Node ID 07b8f7d5764224189b78758425a4a97439d8ca2e # Parent 6a73480b8faff6a2dbf45933e460a9fca01eb512 (compilation-error-regexp-alist-alist::gcov-*): Almost rewrite. Underlines over all lines of gcov output are too uncomfortable to read. diff -r 6a73480b8faf -r 07b8f7d57642 lisp/ChangeLog --- a/lisp/ChangeLog Fri Jun 02 02:18:58 2006 +0000 +++ b/lisp/ChangeLog Fri Jun 02 02:38:53 2006 +0000 @@ -1,3 +1,10 @@ +2006-06-02 Masatake YAMATO <jet@gyve.org> + + * progmodes/compile.el (compilation-error-regexp-alist-alist::gcov-*): + + Almost rewrite. Underlines over all lines of gcov output are too + uncomfortable to read. Suggested by Dan Nicolaescu. + 2006-06-01 Luc Teirlinck <teirllm@auburn.edu> * progmodes/inf-lisp.el (inferior-lisp-mode): Doc fixes. diff -r 6a73480b8faf -r 07b8f7d57642 lisp/progmodes/compile.el --- a/lisp/progmodes/compile.el Fri Jun 02 02:18:58 2006 +0000 +++ b/lisp/progmodes/compile.el Fri Jun 02 02:38:53 2006 +0000 @@ -293,15 +293,34 @@ \\(?:: \\(warning:\\)?\\|$\\| ),\\)" 1 2 nil (3)) (gcov-file - "^ +-: \\(0\\):Source:\\(.+\\)$" 2 1 nil 0) - (gcov-bb-file - "^ +-: \\(0\\):Object:\\(?:.+\\)$" nil 1 nil 0) - (gcov-never-called-line - "^ +\\(#####\\): +\\([0-9]+\\):.+$" nil 2 nil 2 nil - (1 compilation-error-face)) + "^ *-: *\\(0\\):Source:\\(.+\\)$" + 2 1 nil 0 nil + (1 compilation-line-face prepend) (2 compilation-info-face prepend)) + (gcov-header + "^ *-: *\\(0\\):\\(?:Object\\|Graph\\|Data\\|Runs\\|Programs\\):.+$" + nil 1 nil 0 nil + (1 compilation-line-face prepend)) + ;; Underlines over all lines of gcov output are too uncomfortable to read. + ;; However, hyperlinks embedded in the lines are useful. + ;; So I put default face on the lines; and then put + ;; compilation-*-face by manually to eliminate the underlines. + ;; The hyperlinks are still effective. + (gcov-nomark + "^ *-: *\\([1-9]\\|[0-9]\\{2,\\}\\):.*$" + nil 1 nil 0 nil + (0 'default t) + (1 compilation-line-face prepend)) (gcov-called-line - "^ *[0-9]+: +\\([1-9]\\|[0-9]\\{2,\\}\\):.*$" nil 1 nil 0) -) + "^ *\\([0-9]+\\): *\\([0-9]+\\):.*$" + nil 2 nil 0 nil + (0 'default t) + (1 compilation-info-face prepend) (2 compilation-line-face prepend)) + (gcov-never-called + "^ *\\(#####\\): *\\([0-9]+\\):.*$" + nil 2 nil 2 nil + (0 'default t) + (1 compilation-error-face prepend) (2 compilation-line-face prepend)) + ) "Alist of values for `compilation-error-regexp-alist'.") (defcustom compilation-error-regexp-alist