1
0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-05 11:45:45 +00:00

(compilation-error-regexp-alist-alist::gcov-*): Almost rewrite. Underlines over all lines of gcov output are too uncomfortable to read.

This commit is contained in:
Masatake YAMATO 2006-06-02 02:38:53 +00:00
parent 55f626914e
commit eb3d96092a
2 changed files with 34 additions and 8 deletions

View File

@ -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.

View File

@ -293,15 +293,34 @@ File = \\(.+\\), Line = \\([0-9]+\\)\\(?:, Column = \\([0-9]+\\)\\)?"
\\(?:: \\(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