From: Miles Bader <miles@gnu.org>
Date: Thu, 22 Nov 2001 14:55:55 +0000 (+0000)
Subject: (reb-match-0, reb-match-1)
X-Git-Tag: ttn-vms-21-2-B4~18295
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=bf1ec4820290651546a2b586095e6ea13de8afce;p=emacs.git

(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 6427978d4a4..45996d77751 100644
--- 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 03b3b7b0ef2..e5a5a90a5fb 100644
--- 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)