Commit bf1ec482 authored by Miles Bader's avatar Miles Bader
Browse files

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

(reb-match-2, reb-match-3): Add dark-background variants.
parent 306d63c4
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
......
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment