Mercurial > emacs
changeset 64740:eeed7a7c1afa
(grep-regexp-alist): Set 5th arg `TYPE' to
0 instead of 1 to display binary file names as info file links.
(grep-error-face): Use `compilation-error-face' instead of
`font-lock-keyword-face'.
(grep-mode-font-lock-keywords): Use `compilation-info-text-face'
and `compilation-warning-text-face' instead of `font-lock-keyword-face'.
Use `compilation-error-text-face' instead of `grep-error-face'.
| author | Juri Linkov <juri@jurta.org> |
|---|---|
| date | Sat, 06 Aug 2005 01:10:19 +0000 |
| parents | acd7896a76ba |
| children | 3cc3ba147685 |
| files | lisp/progmodes/grep.el |
| diffstat | 1 files changed, 6 insertions(+), 7 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/progmodes/grep.el Sat Aug 06 01:10:09 2005 +0000 +++ b/lisp/progmodes/grep.el Sat Aug 06 01:10:19 2005 +0000 @@ -261,7 +261,7 @@ (lambda () (- (match-end 5) (match-end 1) (- (match-end 4) (match-beginning 4))))) nil 1) - ("^Binary file \\(.+\\) matches$" 1 nil nil 1 1)) + ("^Binary file \\(.+\\) matches$" 1 nil nil 0 1)) "Regexp used to match grep hits. See `compilation-error-regexp-alist'.") (defvar grep-error "grep hit" @@ -272,8 +272,7 @@ (defvar grep-hit-face compilation-info-face "Face name to use for grep hits.") -;; compilation-error-face is wrong for this; it's designed to look like a link. -(defvar grep-error-face font-lock-keyword-face +(defvar grep-error-face compilation-error-face "Face name to use for grep error messages.") (defvar grep-match-face 'match @@ -290,12 +289,12 @@ ;; remove match from grep-regexp-alist before fontifying ("^Grep finished \\(?:(\\(matches found\\))\\|with \\(no matches found\\)\\).*" (0 '(face nil message nil help-echo nil mouse-face nil) t) - (1 font-lock-keyword-face nil t) - (2 font-lock-keyword-face nil t)) + (1 compilation-info-text-face nil t) + (2 compilation-warning-text-face nil t)) ("^Grep \\(exited abnormally\\) with code \\([0-9]+\\).*" (0 '(face nil message nil help-echo nil mouse-face nil) t) - (1 grep-error-face) - (2 grep-error-face)) + (1 compilation-error-text-face) + (2 compilation-error-text-face)) ("^[^\n-]+-[0-9]+-.*" (0 grep-context-face)) ;; Highlight grep matches and delete markers ("\\(\033\\[01;31m\\)\\(.*?\\)\\(\033\\[[0-9]*m\\)"