From: Stefan Bund <stefan@j32.de>
Date: Tue, 13 Sep 2011 10:48:11 +0000 (+0200)
Subject: require font-face match for ALL chars
X-Git-Url: http://g0dil.de/git?a=commitdiff_plain;h=af9ae54c8d50889e2413f9cef6e3615433f627ea;p=emacs-egrep.git

require font-face match for ALL chars
---

diff --git a/egrep.el b/egrep.el
index c8b84ab..8096b57 100644
--- a/egrep.el
+++ b/egrep.el
@@ -38,7 +38,9 @@
     (egrep-finalize-result-buffer result-buffer)))
 
 (defun egrep-font-face-predicate (face-symbol)
-  (eq (get-text-property (point) 'face) face-symbol))
+  (loop for point from (match-beginning 0) to (1- (match-end 0))
+        if (not (eq  (get-text-property point 'face) face-symbol)) return nil
+        finally return t))
 
 (defun egrep-regexps-with-face (regexp face-symbol)
   (interactive (list (read-string "Regexp: ")