Mercurial > emacs
changeset 71742:fcbb34640a44
(compilation-mode-font-lock-keywords): Don't highlight start/end markers
as compilation messages.
| author | Romain Francoise <romain@orebokech.com> |
|---|---|
| date | Sun, 09 Jul 2006 15:17:05 +0000 |
| parents | d3243ee91ba0 |
| children | ce0614025964 |
| files | lisp/ChangeLog lisp/progmodes/compile.el |
| diffstat | 2 files changed, 11 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Sun Jul 09 14:56:55 2006 +0000 +++ b/lisp/ChangeLog Sun Jul 09 15:17:05 2006 +0000 @@ -1,5 +1,8 @@ 2006-07-09 Romain Francoise <romain@orebokech.com> + * progmodes/compile.el (compilation-mode-font-lock-keywords): + Don't highlight start/end markers as compilation messages. + * isearch.el (isearch-yank-line): Let-bind `inhibit-field-text-motion' to t.
--- a/lisp/progmodes/compile.el Sun Jul 09 14:56:55 2006 +0000 +++ b/lisp/progmodes/compile.el Sun Jul 09 15:17:05 2006 +0000 @@ -400,7 +400,10 @@ "Value of `page-delimiter' in Compilation mode.") (defvar compilation-mode-font-lock-keywords - '(;; configure output lines. + '(;; Don't highlight this as a compilation message. + ("^Compilation started at.*" + (0 '(face nil message nil help-echo nil mouse-face nil) t)) + ;; configure output lines. ("^[Cc]hecking \\(?:[Ff]or \\|[Ii]f \\|[Ww]hether \\(?:to \\)?\\)?\\(.+\\)\\.\\.\\. *\\(?:(cached) *\\)?\\(\\(yes\\(?: .+\\)?\\)\\|no\\|\\(.*\\)\\)$" (1 font-lock-variable-name-face) (2 (compilation-face '(4 . 3)))) @@ -408,9 +411,11 @@ ("^\\([[:alnum:]_/.+-]+\\)\\(\\[\\([0-9]+\\)\\]\\)?[ \t]*:" (1 font-lock-function-name-face) (3 compilation-line-face nil t)) (" --?o\\(?:utfile\\|utput\\)?[= ]?\\(\\S +\\)" . 1) - ("^Compilation \\(finished\\)" + ("^Compilation \\(finished\\).*" + (0 '(face nil message nil help-echo nil mouse-face nil) t) (1 compilation-info-face)) - ("^Compilation \\(exited abnormally\\|interrupt\\|killed\\|terminated\\)\\(?:.*with code \\([0-9]+\\)\\)?" + ("^Compilation \\(exited abnormally\\|interrupt\\|killed\\|terminated\\)\\(?:.*with code \\([0-9]+\\)\\)?.*" + (0 '(face nil message nil help-echo nil mouse-face nil) t) (1 compilation-error-face) (2 compilation-error-face nil t))) "Additional things to highlight in Compilation mode.