require font-face match for ALL chars

diff --git a/egrep.el b/egrep.el
index c8b84ab..8096b57 100644 (file)
--- 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: ")