changeset 31666:3cc588d57c8c

(info-node, info-xref): Add dark-background variants. (info-header-xref, info-header-node): Change to inherit from non-header faces.
author Miles Bader <miles@gnu.org>
date Sun, 17 Sep 2000 17:03:20 +0000
parents 37d1a054e5e0
children f5000d258412
files lisp/info.el
diffstat 1 files changed, 6 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/info.el	Sun Sep 17 17:00:05 2000 +0000
+++ b/lisp/info.el	Sun Sep 17 17:03:20 2000 +0000
@@ -61,7 +61,8 @@
   :group 'info)
 
 (defface info-node
-  '((((class color)) (:foreground "brown" :bold t :italic t))
+  '((((class color) (background light)) (:foreground "brown" :bold t :italic t))
+    (((class color) (background dark)) (:foreground "white" :bold t :italic t))
     (t (:bold t :italic t)))
   "Face for Info node names."
   :group 'info)
@@ -73,7 +74,8 @@
   :group 'info)
 
 (defface info-xref
-  '((((class color)) (:foreground "magenta4" :bold t))
+  '((((class color) (background light)) (:foreground "magenta4" :bold t))
+    (((class color) (background dark)) (:foreground "cyan" :bold t))
     (t (:bold t)))
   "Face for Info cross-references."
   :group 'info)
@@ -90,12 +92,12 @@
   :group 'info)
 
 (defface info-header-xref
-  '((t (:weight bold)))
+  '((t (:inherit info-xref)))
   "Face for Info cross-references in a node header."
   :group 'info)
 
 (defface info-header-node
-  '((t (:weight bold :slant italic)))
+  '((t (:inherit info-node)))
   "Face for Info nodes in a node header."
   :group 'info)