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:
parent
55f626914e
commit
eb3d96092a
@ -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.
|
||||
|
@ -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
|
||||
|
Loading…
Reference in New Issue
Block a user