# HG changeset patch
# User Miles Bader <miles@gnu.org>
# Date 1006440772 0
# Node ID d99daedf49db22c2eeb5106ccf936bff07f6bc4a
# Parent  3f1a375341ab0e25d638731d892c68c11ae49b2f
(reb-match-0, reb-match-1)
(reb-match-2, reb-match-3): Add dark-background variants.

diff -r 3f1a375341ab -r d99daedf49db lisp/emacs-lisp/re-builder.el
--- a/lisp/emacs-lisp/re-builder.el	Thu Nov 22 13:06:06 2001 +0000
+++ b/lisp/emacs-lisp/re-builder.el	Thu Nov 22 14:52:52 2001 +0000
@@ -146,30 +146,42 @@
 
 
 (defface reb-match-0
-  '((((class color))
-     (:background "lightblue"))
-    (t (:inverse-video t)))
+  '((((class color) (background light))
+     :background "lightblue")
+    (((class color) (background dark))
+     :background "steelblue4")
+    (t
+     :inverse-video t))
   "Used for displaying the whole match."
   :group 're-builder)
 
 (defface reb-match-1
-  '((((class color))
-     (:background "aquamarine"))
-    (t (:inverse-video t)))
+  '((((class color) (background light))
+     :background "aquamarine")
+    (((class color) (background dark))
+     :background "blue3")
+    (t
+     :inverse-video t))
   "Used for displaying the first matching subexpression."
   :group 're-builder)
 
 (defface reb-match-2
-  '((((class color))
-     (:background "springgreen"))
-    (t (:inverse-video t)))
+  '((((class color) (background light))
+     :background "springgreen")
+    (((class color) (background dark))
+     :background "chartreuse4")
+    (t
+     :inverse-video t))
   "Used for displaying the second matching subexpression."
   :group 're-builder)
 
 (defface reb-match-3
-  '((((class color))
-     (:background "yellow"))
-    (t (:inverse-video t)))
+  '((((class color) (background light))
+     :background "yellow")
+    (((class color) (background dark))
+     :background "sienna4")
+    (t
+     :inverse-video t))
   "Used for displaying the third matching subexpression."
   :group 're-builder)