* lisp/replace.el (list-matching-lines-prefix-face): New defcustom.

(occur-1): Pass `list-matching-lines-prefix-face' to the function
`occur-engine' if `face-differs-from-default-p' returns t.
(occur-engine): Add `,' inside backquote construct to evaluate
`prefix-face'.  Propertize the prefix with the `prefix-face' face.
Pass `prefix-face' to the functions `occur-context-lines' and
`occur-engine-add-prefix'.
(occur-engine-add-prefix, occur-context-lines): Add optional arg
`prefix-face' and propertize the prefix with `prefix-face'.

Fixes: debbugs:14017

1 files changed, 13 insertions, 0 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 68a9575bcbe..c27f5d25a0e 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,16 @@
+2013-03-24  Juri Linkov  <juri@jurta.org>
+
+        * replace.el (list-matching-lines-prefix-face): New defcustom.
+        (occur-1): Pass `list-matching-lines-prefix-face' to the function
+        `occur-engine' if `face-differs-from-default-p' returns t.
+        (occur-engine): Add `,' inside backquote construct to evaluate
+        `prefix-face'.  Propertize the prefix with the `prefix-face' face.
+        Pass `prefix-face' to the functions `occur-context-lines' and
+        `occur-engine-add-prefix'.
+        (occur-engine-add-prefix, occur-context-lines): Add optional arg
+        `prefix-face' and propertize the prefix with `prefix-face'.
+        (Bug#14017)
+
 2013-03-24  Leo Liu  <sdl.web@gmail.com>
 
         * nxml/rng-valid.el (rng-validate-while-idle)