/[emacs]/emacs/lisp/emacs-lisp/re-builder.el
ViewVC logotype

Diff of /emacs/lisp/emacs-lisp/re-builder.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.10 by rms, Tue Nov 20 23:43:55 2001 UTC revision 1.11 by miles, Thu Nov 22 14:52:52 2001 UTC
# Line 146  Set it to nil if you don't want limits h Line 146  Set it to nil if you don't want limits h
146    
147    
148  (defface reb-match-0  (defface reb-match-0
149    '((((class color))    '((((class color) (background light))
150       (:background "lightblue"))       :background "lightblue")
151      (t (:inverse-video t)))      (((class color) (background dark))
152         :background "steelblue4")
153        (t
154         :inverse-video t))
155    "Used for displaying the whole match."    "Used for displaying the whole match."
156    :group 're-builder)    :group 're-builder)
157    
158  (defface reb-match-1  (defface reb-match-1
159    '((((class color))    '((((class color) (background light))
160       (:background "aquamarine"))       :background "aquamarine")
161      (t (:inverse-video t)))      (((class color) (background dark))
162         :background "blue3")
163        (t
164         :inverse-video t))
165    "Used for displaying the first matching subexpression."    "Used for displaying the first matching subexpression."
166    :group 're-builder)    :group 're-builder)
167    
168  (defface reb-match-2  (defface reb-match-2
169    '((((class color))    '((((class color) (background light))
170       (:background "springgreen"))       :background "springgreen")
171      (t (:inverse-video t)))      (((class color) (background dark))
172         :background "chartreuse4")
173        (t
174         :inverse-video t))
175    "Used for displaying the second matching subexpression."    "Used for displaying the second matching subexpression."
176    :group 're-builder)    :group 're-builder)
177    
178  (defface reb-match-3  (defface reb-match-3
179    '((((class color))    '((((class color) (background light))
180       (:background "yellow"))       :background "yellow")
181      (t (:inverse-video t)))      (((class color) (background dark))
182         :background "sienna4")
183        (t
184         :inverse-video t))
185    "Used for displaying the third matching subexpression."    "Used for displaying the third matching subexpression."
186    :group 're-builder)    :group 're-builder)
187    

Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26