Commit 98da8c0f authored by Juri Linkov's avatar Juri Linkov

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

instead of hard-coded default face `match'.  (Bug#9438)
parent 35e85499
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):
......
......@@ -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)))))))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment