diff options
author | Miles Bader <miles@gnu.org> | 2001-11-22 14:55:55 +0000 |
---|---|---|
committer | Miles Bader <miles@gnu.org> | 2001-11-22 14:55:55 +0000 |
commit | bf1ec4820290651546a2b586095e6ea13de8afce (patch) | |
tree | 149c50cc6c458d53a90bbe5e422620e184a35c83 | |
parent | 306d63c4d1fd2058fbe83cb2210b1e55caff4899 (diff) |
(reb-match-0, reb-match-1)
(reb-match-2, reb-match-3): Add dark-background variants.
-rw-r--r-- | lisp/ChangeLog | 5 | ||||
-rw-r--r-- | lisp/emacs-lisp/re-builder.el | 36 |
2 files changed, 29 insertions, 12 deletions
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) |