275 |
(defvar grep-error-face compilation-error-face |
(defvar grep-error-face compilation-error-face |
276 |
"Face name to use for grep error messages.") |
"Face name to use for grep error messages.") |
277 |
|
|
278 |
|
(defvar grep-match-face 'match |
279 |
|
"Face name to use for grep matches.") |
280 |
|
|
281 |
(defvar grep-mode-font-lock-keywords |
(defvar grep-mode-font-lock-keywords |
282 |
'(;; Command output lines. |
'(;; Command output lines. |
283 |
("^\\([A-Za-z_0-9/\.+-]+\\)[ \t]*:" 1 font-lock-function-name-face) |
("^\\([A-Za-z_0-9/\.+-]+\\)[ \t]*:" 1 font-lock-function-name-face) |
294 |
(2 compilation-line-face)) |
(2 compilation-line-face)) |
295 |
;; Highlight grep matches and delete markers |
;; Highlight grep matches and delete markers |
296 |
("\\(\033\\[01;41m\\)\\(.*?\\)\\(\033\\[00m\\)" |
("\\(\033\\[01;41m\\)\\(.*?\\)\\(\033\\[00m\\)" |
297 |
(2 compilation-column-face) |
(2 grep-match-face) |
298 |
((lambda (p)) |
((lambda (p)) |
299 |
(progn |
(progn |
300 |
;; Delete markers with `replace-match' because it updates |
;; Delete markers with `replace-match' because it updates |