# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 944503233 0
# Node ID 407a5a4056e83632a3a0815add54b14efa75a326
# Parent  0aad3e0b47d25eb8d9c463686b165ee040531805
(info-node, info-menu-5, info-xref): Define colors for Info faces if
the display supports them.

diff -r 0aad3e0b47d2 -r 407a5a4056e8 lisp/ChangeLog
--- a/lisp/ChangeLog	Mon Dec 06 17:57:17 1999 +0000
+++ b/lisp/ChangeLog	Mon Dec 06 18:00:33 1999 +0000
@@ -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 -r 0aad3e0b47d2 -r 407a5a4056e8 lisp/info.el
--- a/lisp/info.el	Mon Dec 06 17:57:17 1999 +0000
+++ b/lisp/info.el	Mon Dec 06 18:00:33 1999 +0000
@@ -61,17 +61,20 @@
   :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)