From: Juri Linkov <juri@jurta.org>
Date: Tue, 19 Jul 2005 11:35:34 +0000 (+0000)
Subject: (info-xref-visited): Use light foreground color `violet'
X-Git-Tag: emacs-pretest-22.0.90~7992
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=71672328465f57e40359fad0384691b18f9d1947;p=emacs.git

(info-xref-visited): Use light foreground color `violet'
for dark backgrounds instead of dark color `magenta3'.
(info-title-1): Use `yellow' color for dark backgrounds.
---

diff --git a/lisp/info.el b/lisp/info.el
index 695d67c3647..a7f4c494244 100644
--- a/lisp/info.el
+++ b/lisp/info.el
@@ -96,7 +96,7 @@ The Lisp code is executed when the node is selected.")
 (defface info-xref-visited
   '((default :inherit info-xref)
     (((class color) (background light)) :foreground "magenta4")
-    (((class color) (background dark)) :foreground "magenta3")) ;"violet"?
+    (((class color) (background dark)) :foreground "violet"))
   "Face for visited Info cross-references."
   :group 'info)
 
@@ -3527,7 +3527,10 @@ the variable `Info-file-list-for-emacs'."
 	   (Info-goto-emacs-command-node command)))))
 
 (defface info-title-1
-  '((((type tty pc) (class color)) :foreground "green" :weight bold)
+  '((((type tty pc) (class color) (background light))
+     :foreground "green" :weight bold)
+    (((type tty pc) (class color) (background dark))
+     :foreground "yellow" :weight bold)
     (t :height 1.2 :inherit info-title-2))
   "Face for info titles at level 1."
   :group 'info)