From: Eli Zaretskii <eliz@gnu.org>
Date: Tue, 17 Oct 2000 06:53:48 +0000 (+0000)
Subject: (Info-title-1-face, Info-title-2-face, Info-title-3-face): Define
X-Git-Tag: emacs-pretest-21.0.90~816
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=333cd59eeb3d9de2cd98cca1392eeef28dc657e4;p=emacs.git

(Info-title-1-face, Info-title-2-face, Info-title-3-face): Define
colors for tty's.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 4333d84585c..7d3342b9f8b 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2000-10-17  Eli Zaretskii  <eliz@is.elta.co.il>
+
+	* info.el (Info-title-1-face, Info-title-2-face)
+	(Info-title-3-face): Define colors for tty's.
+
 2000-10-16  Eli Zaretskii  <eliz@is.elta.co.il>
 
 	* term/pc-win.el (msdos-handle-reverse-video): Don't remove
diff --git a/lisp/info.el b/lisp/info.el
index 1f3d2ae07fa..e08b4e88ef1 100644
--- a/lisp/info.el
+++ b/lisp/info.el
@@ -2364,17 +2364,20 @@ the variable `Info-file-list-for-emacs'."
 	   (Info-goto-emacs-command-node command)))))
 
 (defface Info-title-1-face
-  '((t (:height 1.2 :inherit Info-title-2-face)))
+  '((((type tty pc) (class color)) (:foreground "lightred" :weight bold))
+    (t (:height 1.2 :inherit Info-title-2-face)))
   "Face for Info titles at level 1."
   :group 'info)
 
 (defface Info-title-2-face
-  '((t (:height 1.2 :inherit Info-title-3-face)))
+  '((((type tty pc) (class color)) (:foreground "yellow" :weight bold))
+    (t (:height 1.2 :inherit Info-title-3-face)))
   "Face for Info titles at level 2."
   :group 'info)
 
 (defface Info-title-3-face
-  '((t (:height 1.2 :weight bold :inherit variable-pitch)))
+  '((((type tty pc) (class color)) (:foreground "lightblue" :weight bold))
+    (t (:height 1.2 :weight bold :inherit variable-pitch)))
   "Face for Info titles at level 3."
   :group 'info)