From 69517e25dcf6eac43c13d53f22778798e0f9a2e0 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 23 Jul 2005 22:13:54 +0000 Subject: [PATCH] (grep-error-face): Use font-lock-keyword-face (grep-mode-font-lock-keywords): Don't use compilation-...-face for messages that are not file names. --- lisp/progmodes/grep.el | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) diff --git a/lisp/progmodes/grep.el b/lisp/progmodes/grep.el index 8f6dd73cba1..dce17ed1306 100644 --- a/lisp/progmodes/grep.el +++ b/lisp/progmodes/grep.el @@ -277,7 +277,8 @@ Notice that using \\[next-error] or \\[compile-goto-error] modifies (defvar grep-hit-face compilation-info-face "Face name to use for grep hits.") -(defvar grep-error-face compilation-error-face +;; compilation-error-face is wrong for this; it's designed to look like a link. +(defvar grep-error-face font-lock-keyword-face "Face name to use for grep error messages.") (defvar grep-match-face 'match @@ -291,12 +292,12 @@ Notice that using \\[next-error] or \\[compile-goto-error] modifies ;; 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 grep-hit-face nil t) - (2 grep-error-face nil t)) + (1 font-lock-keyword-face nil t) + (2 font-lock-keyword-face nil t)) ("^Grep \\(exited abnormally\\) with code \\([0-9]+\\).*" (0 '(face nil message nil help-echo nil mouse-face nil) t) - (1 compilation-warning-face) - (2 compilation-line-face)) + (1 grep-error-face) + (2 grep-error-face)) ;; Highlight grep matches and delete markers ("\\(\033\\[01;31m\\)\\(.*?\\)\\(\033\\[[0-9]*m\\)" ;; Refontification does not work after the markers have been -- 2.39.2