Mercurial > emacs

comparison lisp/progmodes/compile.el @ 64618:f3b002404592

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(compilation-mode-font-lock-keywords): Don't use compilation-...-face for messages that are not file names.
author Richard M. Stallman <rms@gnu.org>
date Sat, 23 Jul 2005 22:11:30 +0000
parents 76fced56e97e
children 629afbe74e61 890cc78a5a24
comparison
equal deleted inserted replaced
64617:66efe03759a5 64618:f3b002404592
375 375
376 (defvar compilation-mode-font-lock-keywords 376 (defvar compilation-mode-font-lock-keywords
377 '(;; configure output lines. 377 '(;; configure output lines.
378 ("^[Cc]hecking \\(?:[Ff]or \\|[Ii]f \\|[Ww]hether \\(?:to \\)?\\)?\\(.+\\)\\.\\.\\. *\\(?:(cached) *\\)?\\(\\(yes\\(?: .+\\)?\\)\\|no\\|\\(.*\\)\\)$" 378 ("^[Cc]hecking \\(?:[Ff]or \\|[Ii]f \\|[Ww]hether \\(?:to \\)?\\)?\\(.+\\)\\.\\.\\. *\\(?:(cached) *\\)?\\(\\(yes\\(?: .+\\)?\\)\\|no\\|\\(.*\\)\\)$"
379 (1 font-lock-variable-name-face) 379 (1 font-lock-variable-name-face)
380 (2 (compilation-face '(4 . 3)))) 380 (2 font-lock-keyword-face))
381 ;; Command output lines. Recognize `make[n]:' lines too. 381 ;; Command output lines. Recognize `make[n]:' lines too.
382 ("^\\([[:alnum:]_/.+-]+\\)\\(\\[\\([0-9]+\\)\\]\\)?[ \t]*:" 382 ("^\\([[:alnum:]_/.+-]+\\)\\(\\[\\([0-9]+\\)\\]\\)?[ \t]*:"
383 (1 font-lock-function-name-face) (3 compilation-line-face nil t)) 383 (1 font-lock-function-name-face) (3 compilation-line-face nil t))
384 (" --?o\\(?:utfile\\|utput\\)?[= ]?\\(\\S +\\)" . 1) 384 (" --?o\\(?:utfile\\|utput\\)?[= ]?\\(\\S +\\)" . 1)
385 ("^Compilation finished" . compilation-info-face) 385 ("^Compilation finished" . font-lock-keyword-face)
386 ("^Compilation exited abnormally" . compilation-error-face)) 386 ("^Compilation exited abnormally" . font-lock-keyword-face))
387 "Additional things to highlight in Compilation mode. 387 "Additional things to highlight in Compilation mode.
388 This gets tacked on the end of the generated expressions.") 388 This gets tacked on the end of the generated expressions.")
389 389
390 (defvar compilation-highlight-regexp t 390 (defvar compilation-highlight-regexp t
391 "Regexp matching part of visited source lines to highlight temporarily. 391 "Regexp matching part of visited source lines to highlight temporarily.