* lisp/progmodes/grep.el (grep-regexp-alist): Use variable grep-match-face

instead of hard-coded default face `match'.  (Bug#9438)

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 9fba2817b1e1d7dc53ef33355af467cdfe0e673e..d27b2a44c150af18ffdc52bcd105af762c6a06f5 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2013-02-02  Juri Linkov  <juri@jurta.org>
+
+       * progmodes/grep.el (grep-regexp-alist): Use variable grep-match-face
+       instead of hard-coded default face `match'.  (Bug#9438)
+
 2012-02-01  Christopher Schmidt  <christopher@ch.ristopher.com>
 
        * vc/vc-arch.el (vc-arch-registered):

diff --git a/lisp/progmodes/grep.el b/lisp/progmodes/grep.el
index ef321addf2448c9e84c6da147f1d7ac27765d779..d8c39f2ddeffee44b8234ba82eddb034e93d6c13 100644 (file)
--- a/lisp/progmodes/grep.el
+++ b/lisp/progmodes/grep.el
@@ -359,7 +359,7 @@ Notice that using \\[next-error] or \\[compile-goto-error] modifies
        (when grep-highlight-matches
          (let* ((beg (match-end 0))
                 (end (save-excursion (goto-char beg) (line-end-position)))
-                (mbeg (text-property-any beg end 'font-lock-face 'match)))
+                (mbeg (text-property-any beg end 'font-lock-face grep-match-face)))
            (when mbeg
              (- mbeg beg)))))
       .
@@ -367,7 +367,7 @@ Notice that using \\[next-error] or \\[compile-goto-error] modifies
        (when grep-highlight-matches
          (let* ((beg (match-end 0))
                 (end (save-excursion (goto-char beg) (line-end-position)))
-                (mbeg (text-property-any beg end 'font-lock-face 'match))
+                (mbeg (text-property-any beg end 'font-lock-face grep-match-face))
                 (mend (and mbeg (next-single-property-change mbeg 'font-lock-face nil end))))
            (when mend
              (- mend beg)))))))