Commit eb3d9609 authored by Masatake YAMATO's avatar Masatake YAMATO

(compilation-error-regexp-alist-alist::gcov-*): Almost rewrite. Underlines...

(compilation-error-regexp-alist-alist::gcov-*): Almost rewrite. Underlines over all lines of gcov output are too uncomfortable to read.
parent 55f62691
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> 2006-06-01 Luc Teirlinck <teirllm@auburn.edu>
* progmodes/inf-lisp.el (inferior-lisp-mode): Doc fixes. * progmodes/inf-lisp.el (inferior-lisp-mode): Doc fixes.
......
...@@ -293,15 +293,34 @@ File = \\(.+\\), Line = \\([0-9]+\\)\\(?:, Column = \\([0-9]+\\)\\)?" ...@@ -293,15 +293,34 @@ File = \\(.+\\), Line = \\([0-9]+\\)\\(?:, Column = \\([0-9]+\\)\\)?"
\\(?:: \\(warning:\\)?\\|$\\| ),\\)" 1 2 nil (3)) \\(?:: \\(warning:\\)?\\|$\\| ),\\)" 1 2 nil (3))
(gcov-file (gcov-file
"^ +-: \\(0\\):Source:\\(.+\\)$" 2 1 nil 0) "^ *-: *\\(0\\):Source:\\(.+\\)$"
(gcov-bb-file 2 1 nil 0 nil
"^ +-: \\(0\\):Object:\\(?:.+\\)$" nil 1 nil 0) (1 compilation-line-face prepend) (2 compilation-info-face prepend))
(gcov-never-called-line (gcov-header
"^ +\\(#####\\): +\\([0-9]+\\):.+$" nil 2 nil 2 nil "^ *-: *\\(0\\):\\(?:Object\\|Graph\\|Data\\|Runs\\|Programs\\):.+$"
(1 compilation-error-face)) 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 (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'.") "Alist of values for `compilation-error-regexp-alist'.")
(defcustom compilation-error-regexp-alist (defcustom compilation-error-regexp-alist
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment