1 |
;;; grep.el --- run compiler as inferior of Emacs, parse error messages |
;;; grep.el --- run compiler as inferior of Emacs, parse error messages |
2 |
|
|
3 |
;; Copyright (C) 1985, 1986, 1987, 1993, 1994, 1995, 1996, 1997, 1998, 1999, |
;; Copyright (C) 1985, 1986, 1987, 1993, 1994, 1995, 1996, 1997, 1998, 1999, |
4 |
;; 2001, 2002, 2004 Free Software Foundation, Inc. |
;; 2001, 2002, 2004, 2005 Free Software Foundation, Inc. |
5 |
|
|
6 |
;; Author: Roland McGrath <roland@gnu.org> |
;; Author: Roland McGrath <roland@gnu.org> |
7 |
;; Maintainer: FSF |
;; Maintainer: FSF |
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\\[K\\)?\\)" |
("\\(\033\\[01;41m\\)\\(.*?\\)\\(\033\\[00m\\(\033\\[K\\)?\\)" |
297 |
(2 grep-match-face) |
;; Refontification does not work after the markers have been |
298 |
|
;; deleted. So we use the font-lock-face property here as Font |
299 |
|
;; Lock does not clear that. |
300 |
|
(2 (list 'face nil 'font-lock-face grep-match-face)) |
301 |
((lambda (p)) |
((lambda (p)) |
302 |
(progn |
(progn |
303 |
;; Delete markers with `replace-match' because it updates |
;; Delete markers with `replace-match' because it updates |