From: Juri Linkov Date: Sat, 2 Feb 2013 00:35:38 +0000 (+0200) Subject: * lisp/progmodes/grep.el (grep-regexp-alist): Use variable grep-match-face X-Git-Tag: emacs-24.3.90~173^2~7^2~166 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=98da8c0f542465341b930d36db8000b5bb2c77c4;p=emacs.git * 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 9fba2817b1e..d27b2a44c15 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2013-02-02 Juri Linkov + + * 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 * vc/vc-arch.el (vc-arch-registered): diff --git a/lisp/progmodes/grep.el b/lisp/progmodes/grep.el index ef321addf24..d8c39f2ddef 100644 --- 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)))))))