/[emacs]/emacs/lisp/progmodes/grep.el
ViewVC logotype

Diff of /emacs/lisp/progmodes/grep.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.34 by kfstorm, Wed Feb 9 15:50:36 2005 UTC revision 1.35 by lute, Thu Apr 28 09:15:40 2005 UTC
# Line 1  Line 1 
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
# Line 294  Notice that using \\[next-error] or \\[c Line 294  Notice that using \\[next-error] or \\[c
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

Legend:
Removed from v.1.34  
changed lines
  Added in v.1.35

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26