# HG changeset patch
# User Miles Bader <miles@gnu.org>
# Date 969210200 0
# Node ID 3cc588d57c8c14d270eafdc6bfc7f9897b9df761
# Parent  37d1a054e5e0c78a9ecea5ebe9a508d50447ec6f
(info-node, info-xref): Add dark-background variants.
(info-header-xref, info-header-node): Change to inherit from non-header faces.

diff -r 37d1a054e5e0 -r 3cc588d57c8c lisp/info.el
--- 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)