mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 18:40:39 -08:00
Code Issues Projects Releases Wiki Activity

Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-199

Browse source 
Tweak gdb-ui breakpoint faces

2005-03-22  Miles Bader  <miles@gnu.org>

   * lisp/progmodes/gdb-ui.el (breakpoint-enabled, breakpoint-disabled):
   Tweak details to look good on both ttys and bitmap displays, light
   or dark background, etc.
This commit is contained in:
Miles Bader 2005-03-22 05:05:50 +00:00
parent 28c22055e5
commit 0c04baa6c5
1 changed files with 25 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

31
lisp/progmodes/gdb-ui.el
View file

@ -1161,19 +1161,38 @@ static char *magick[] = {
"\x3c\x7e\xff\xff\xff\xff\x7e\x3c"))
(defface breakpoint-enabled
'((t
:inherit fringe
;; 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.
'((((type tty))
:weight bold
:foreground "red"))
:foreground "red")
(t
:weight bold
:foreground "red"
:inherit fringe))
"Face for enabled breakpoint icon in fringe."
:group 'gud)
;; compatibility alias for old name
(put 'breakpoint-enabled-bitmap-face 'face-alias 'breakpoint-enabled)
(defface breakpoint-disabled
'((t
:inherit fringe
:foreground "grey60"))
;; We use different values of grey for different background types,
;; so that on low-color displays it will end up as something visible
;; if it has to be approximated. 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.
'((((type tty) (background dark))
:foreground "grey60")
(((type tty) (background light))
:foreground "grey40")
(((background dark))
:foreground "grey60"
:inherit fringe)
(((background light))
:foreground "grey40"
:inherit fringe))
"Face for disabled breakpoint icon in fringe."
:group 'gud)
;; compatibility alias for old name