# HG changeset patch
# User Juri Linkov <juri@jurta.org>
# Date 1103181377 0
# Node ID b24e485e88f764998057976f0d2dc9acfcd98d21
# Parent  59945307b86b1ac534e2237e351d58c1170501d2
(match): New face.
(list-matching-lines-face): Change default from `bold' to `match'.

diff -r 59945307b86b -r b24e485e88f7 lisp/replace.el
--- a/lisp/replace.el	Wed Dec 15 21:40:41 2004 +0000
+++ b/lisp/replace.el	Thu Dec 16 07:16:17 2004 +0000
@@ -752,6 +752,20 @@
     (set-window-point (get-buffer-window (current-buffer)) (point))
     (occur-mode-goto-occurrence)))
 
+(defface match
+  '((((class color) (min-colors 88) (background light))
+     :background "Tan")
+    (((class color) (min-colors 88) (background dark))
+     :background "RoyalBlue4")
+    (((class color) (min-colors 8))
+     :background "blue" :foreground "white")
+    (((type tty) (class mono))
+     :inverse-video t)
+    (t :background "gray"))
+  "Face used to highlight matches permanently."
+  :group 'matching
+  :version "21.4")
+
 (defcustom list-matching-lines-default-context-lines 0
   "*Default number of context lines included around `list-matching-lines' matches.
 A negative number means to include that many lines before the match.
@@ -761,7 +775,7 @@
 
 (defalias 'list-matching-lines 'occur)
 
-(defcustom list-matching-lines-face 'bold
+(defcustom list-matching-lines-face 'match
   "*Face used by \\[list-matching-lines] to show the text that matches.
 If the value is nil, don't highlight the matching portions specially."
   :type 'face