mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-06 06:20:55 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source 
(reb-match-2, reb-match-3): Add dark-background variants.
This commit is contained in:
Miles Bader 2001-11-22 14:55:55 +00:00
parent 306d63c4d1
commit bf1ec48202
2 changed files with 29 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

36
lisp/emacs-lisp/re-builder.el
View file

@ -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)