Mercurial > emacs
changeset 71150:07b8f7d57642
(compilation-error-regexp-alist-alist::gcov-*): Almost rewrite. Underlines over all lines of gcov output are too uncomfortable to read.
| author | Masatake YAMATO <jet@gyve.org> |
|---|---|
| date | Fri, 02 Jun 2006 02:38:53 +0000 |
| parents | 6a73480b8faf |
| children | 207dba45f18e |
| files | lisp/ChangeLog lisp/progmodes/compile.el |
| diffstat | 2 files changed, 34 insertions(+), 8 deletions(-) [+] |
line wrap: on
line diff
--- 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.
--- 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