(info-node, info-menu-5, info-xref): Define colors for Info faces if

the display supports them.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 36e9fb90c1b62ecddd3677aed6d1ecd1f3a03944..bec164f7fd05c25248440e9bfdc5f13eeb07b525 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+1999-12-06  Eli Zaretskii  <eliz@is.elta.co.il>
+
+       * info.el (info-node, info-menu-5, info-xref): Define colors for
+       Info faces if the display supports them.
+
 1999-12-06  Eli Zaretskii  <eliz@is.elta.co.il>
 
        Changes for automatic remapping of X colors on terminal frames:

diff --git a/lisp/info.el b/lisp/info.el
index 8da9f0ad27eadca7d4a91619337f15c465e8f523..c2eff14e4247ffcb10da02856efd21db1c3b40e8 100644 (file)
--- a/lisp/info.el
+++ b/lisp/info.el
@@ -61,17 +61,20 @@ The Lisp code is executed when the node is selected.")
   :group 'info)
 
 (defface info-node
-  '((t (:bold t :italic t)))
+  '((((class color)) (:foreground "brown" :bold t :italic t))
+    (t (:bold t :italic t)))
   "Face for Info node names."
   :group 'info)
 
 (defface info-menu-5
-  '((t (:underline t)))
+  '((((class color)) (:foreground "red1"))
+    (t (:underline t)))
   "Face for the fifth and tenth `*' in an Info menu."
   :group 'info)
 
 (defface info-xref
-  '((t (:bold t)))
+  '((((class color)) (:foreground "magenta4" :bold t))
+    (t (:bold t)))
   "Face for Info cross-references."
   :group 'info)