Mercurial > emacs
comparison lisp/progmodes/compile.el @ 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 | 44a7192990fe |
children | a1e8435263b7 a8190f7e546e |
comparison
equal
deleted
inserted
replaced
71149:6a73480b8faf | 71150:07b8f7d57642 |
---|---|
291 (4bsd | 291 (4bsd |
292 "\\(?:^\\|:: \\|\\S ( \\)\\(/[^ \n\t()]+\\)(\\([0-9]+\\))\ | 292 "\\(?:^\\|:: \\|\\S ( \\)\\(/[^ \n\t()]+\\)(\\([0-9]+\\))\ |
293 \\(?:: \\(warning:\\)?\\|$\\| ),\\)" 1 2 nil (3)) | 293 \\(?:: \\(warning:\\)?\\|$\\| ),\\)" 1 2 nil (3)) |
294 | 294 |
295 (gcov-file | 295 (gcov-file |
296 "^ +-: \\(0\\):Source:\\(.+\\)$" 2 1 nil 0) | 296 "^ *-: *\\(0\\):Source:\\(.+\\)$" |
297 (gcov-bb-file | 297 2 1 nil 0 nil |
298 "^ +-: \\(0\\):Object:\\(?:.+\\)$" nil 1 nil 0) | 298 (1 compilation-line-face prepend) (2 compilation-info-face prepend)) |
299 (gcov-never-called-line | 299 (gcov-header |
300 "^ +\\(#####\\): +\\([0-9]+\\):.+$" nil 2 nil 2 nil | 300 "^ *-: *\\(0\\):\\(?:Object\\|Graph\\|Data\\|Runs\\|Programs\\):.+$" |
301 (1 compilation-error-face)) | 301 nil 1 nil 0 nil |
302 (1 compilation-line-face prepend)) | |
303 ;; Underlines over all lines of gcov output are too uncomfortable to read. | |
304 ;; However, hyperlinks embedded in the lines are useful. | |
305 ;; So I put default face on the lines; and then put | |
306 ;; compilation-*-face by manually to eliminate the underlines. | |
307 ;; The hyperlinks are still effective. | |
308 (gcov-nomark | |
309 "^ *-: *\\([1-9]\\|[0-9]\\{2,\\}\\):.*$" | |
310 nil 1 nil 0 nil | |
311 (0 'default t) | |
312 (1 compilation-line-face prepend)) | |
302 (gcov-called-line | 313 (gcov-called-line |
303 "^ *[0-9]+: +\\([1-9]\\|[0-9]\\{2,\\}\\):.*$" nil 1 nil 0) | 314 "^ *\\([0-9]+\\): *\\([0-9]+\\):.*$" |
304 ) | 315 nil 2 nil 0 nil |
316 (0 'default t) | |
317 (1 compilation-info-face prepend) (2 compilation-line-face prepend)) | |
318 (gcov-never-called | |
319 "^ *\\(#####\\): *\\([0-9]+\\):.*$" | |
320 nil 2 nil 2 nil | |
321 (0 'default t) | |
322 (1 compilation-error-face prepend) (2 compilation-line-face prepend)) | |
323 ) | |
305 "Alist of values for `compilation-error-regexp-alist'.") | 324 "Alist of values for `compilation-error-regexp-alist'.") |
306 | 325 |
307 (defcustom compilation-error-regexp-alist | 326 (defcustom compilation-error-regexp-alist |
308 (mapcar 'car compilation-error-regexp-alist-alist) | 327 (mapcar 'car compilation-error-regexp-alist-alist) |
309 "Alist that specifies how to match errors in compiler output. | 328 "Alist that specifies how to match errors in compiler output. |