277 |
(defvar grep-hit-face compilation-info-face |
(defvar grep-hit-face compilation-info-face |
278 |
"Face name to use for grep hits.") |
"Face name to use for grep hits.") |
279 |
|
|
280 |
(defvar grep-error-face compilation-error-face |
;; compilation-error-face is wrong for this; it's designed to look like a link. |
281 |
|
(defvar grep-error-face font-lock-keyword-face |
282 |
"Face name to use for grep error messages.") |
"Face name to use for grep error messages.") |
283 |
|
|
284 |
(defvar grep-match-face 'match |
(defvar grep-match-face 'match |
292 |
;; remove match from grep-regexp-alist before fontifying |
;; remove match from grep-regexp-alist before fontifying |
293 |
("^Grep finished \\(?:(\\(matches found\\))\\|with \\(no matches found\\)\\).*" |
("^Grep finished \\(?:(\\(matches found\\))\\|with \\(no matches found\\)\\).*" |
294 |
(0 '(face nil message nil help-echo nil mouse-face nil) t) |
(0 '(face nil message nil help-echo nil mouse-face nil) t) |
295 |
(1 grep-hit-face nil t) |
(1 font-lock-keyword-face nil t) |
296 |
(2 grep-error-face nil t)) |
(2 font-lock-keyword-face nil t)) |
297 |
("^Grep \\(exited abnormally\\) with code \\([0-9]+\\).*" |
("^Grep \\(exited abnormally\\) with code \\([0-9]+\\).*" |
298 |
(0 '(face nil message nil help-echo nil mouse-face nil) t) |
(0 '(face nil message nil help-echo nil mouse-face nil) t) |
299 |
(1 compilation-warning-face) |
(1 grep-error-face) |
300 |
(2 compilation-line-face)) |
(2 grep-error-face)) |
301 |
;; Highlight grep matches and delete markers |
;; Highlight grep matches and delete markers |
302 |
("\\(\033\\[01;31m\\)\\(.*?\\)\\(\033\\[[0-9]*m\\)" |
("\\(\033\\[01;31m\\)\\(.*?\\)\\(\033\\[[0-9]*m\\)" |
303 |
;; Refontification does not work after the markers have been |
;; Refontification does not work after the markers have been |