1161 |
"\x3c\x7e\xff\xff\xff\xff\x7e\x3c")) |
"\x3c\x7e\xff\xff\xff\xff\x7e\x3c")) |
1162 |
|
|
1163 |
(defface breakpoint-enabled |
(defface breakpoint-enabled |
|
;; On ttys, we don't inherit from the `fringe' face because that |
|
|
;; doesn't seem to do the right thing in some cases (?), whereas |
|
|
;; it's required on non-tty displays to get the background right. |
|
1164 |
'((((type tty)) |
'((((type tty)) |
1165 |
:weight bold |
:weight bold |
1166 |
:foreground "red") |
:foreground "red") |
1167 |
(t |
(t |
1168 |
:weight bold |
:weight bold |
1169 |
:foreground "red" |
:foreground "red")) |
|
:inherit fringe)) |
|
1170 |
"Face for enabled breakpoint icon in fringe." |
"Face for enabled breakpoint icon in fringe." |
1171 |
:group 'gud) |
:group 'gud) |
1172 |
;; compatibility alias for old name |
;; compatibility alias for old name |
1175 |
(defface breakpoint-disabled |
(defface breakpoint-disabled |
1176 |
;; We use different values of grey for different background types, |
;; We use different values of grey for different background types, |
1177 |
;; so that on low-color displays it will end up as something visible |
;; so that on low-color displays it will end up as something visible |
1178 |
;; if it has to be approximated. On ttys, we don't inherit from the |
;; if it has to be approximated. |
|
;; `fringe' face because that doesn't seem to do the right thing in |
|
|
;; some cases (?), whereas it's required on non-tty displays to get |
|
|
;; the background right. |
|
1179 |
'((((type tty) (background dark)) |
'((((type tty) (background dark)) |
1180 |
:foreground "grey60") |
:foreground "grey60") |
1181 |
(((type tty) (background light)) |
(((type tty) (background light)) |
1182 |
:foreground "grey40") |
:foreground "grey40") |
1183 |
(((background dark)) |
(((background dark)) |
1184 |
:foreground "grey60" |
:foreground "grey60") |
|
:inherit fringe) |
|
1185 |
(((background light)) |
(((background light)) |
1186 |
:foreground "grey40" |
:foreground "grey40")) |
|
:inherit fringe)) |
|
1187 |
"Face for disabled breakpoint icon in fringe." |
"Face for disabled breakpoint icon in fringe." |
1188 |
:group 'gud) |
:group 'gud) |
1189 |
;; compatibility alias for old name |
;; compatibility alias for old name |