(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 695d67c3647525fbaaf772460427be0e290c8568..a7f4c4942448916ef3480ebd784d90f9bc20b0e7 100644 (file)
--- 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)))))
 \f
 (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)