[Emacs-diffs] /srv/bzr/emacs/trunk r111657: * lisp/progmodes/grep.el (grep-regexp-alist): Use variable grep-match-face

[Juri Linkov]

------------------------------------------------------------
revno: 111657
committer: Juri Linkov <address@hidden>
branch nick: trunk
timestamp: Sat 2013-02-02 02:35:38 +0200
message:
  * lisp/progmodes/grep.el (grep-regexp-alist): Use variable grep-match-face
  instead of hard-coded default face `match'.  (Bug#9438)
modified:
  lisp/ChangeLog
  lisp/progmodes/grep.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-02-01 17:19:24 +0000
+++ b/lisp/ChangeLog    2013-02-02 00:35:38 +0000
@@ -1,3 +1,8 @@
+2013-02-02  Juri Linkov  <address@hidden>
+
+       * 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  <address@hidden>
 
        * vc/vc-arch.el (vc-arch-registered):

=== modified file 'lisp/progmodes/grep.el'
--- a/lisp/progmodes/grep.el    2013-01-02 16:13:04 +0000
+++ b/lisp/progmodes/grep.el    2013-02-02 00:35:38 +0000
@@ -359,7 +359,7 @@
        (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 @@
        (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)))))))