changeset 60810:6eef5fcb0572

Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-199 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.
author Miles Bader <miles@gnu.org>
date Tue, 22 Mar 2005 05:05:50 +0000
parents c8e49e96413b
children 09aa085cd248
files lisp/progmodes/gdb-ui.el
diffstat 1 files changed, 25 insertions(+), 6 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/progmodes/gdb-ui.el	Tue Mar 22 05:05:37 2005 +0000
+++ b/lisp/progmodes/gdb-ui.el	Tue Mar 22 05:05:50 2005 +0000
@@ -1161,19 +1161,38 @@
        "\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