From: Juri Linkov <juri@jurta.org>
Date: Thu, 16 Dec 2004 07:16:17 +0000 (+0000)
Subject: (match): New face.
X-Git-Tag: ttn-vms-21-2-B4~3246
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=aaaecfcda1d58125879a1111e1f338e3866ee655;p=emacs.git

(match): New face.
(list-matching-lines-face): Change default from `bold' to `match'.
---

diff --git a/lisp/replace.el b/lisp/replace.el
index 6ba2e7e9aa8..872e5e290a8 100644
--- a/lisp/replace.el
+++ b/lisp/replace.el
@@ -752,6 +752,20 @@ Compatibility function for \\[next-error] invocations."
     (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 @@ A positive number means to include that many lines both before and after."
 
 (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