(reb-match-0, reb-match-1)

(reb-match-2, reb-match-3): Add dark-background variants.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 6427978d4a463827b61760fdf0b76992bccca1c5..45996d777510e8d8c0408a061ac3fc7c7804f9e8 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2001-11-22  Miles Bader  <miles@gnu.org>
+
+       * emacs-lisp/re-builder.el (reb-match-0, reb-match-1) 
+       (reb-match-2, reb-match-3): Add dark-background variants.
+
 2001-11-22  Colin Walters  <walters@debian.org>
 
        * calc/calc-misc.el (calc-info): Don't perform voodoo, just

diff --git a/lisp/emacs-lisp/re-builder.el b/lisp/emacs-lisp/re-builder.el
index 03b3b7b0ef2713fb9fe0250694524d9f5c10dcd4..e5a5a90a5fb25ef2fec55b4037fad170ac9a2bd4 100644 (file)
--- a/lisp/emacs-lisp/re-builder.el
+++ b/lisp/emacs-lisp/re-builder.el
@@ -146,30 +146,42 @@ Set it to nil if you don't want limits here."
 
 
 (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)