From: Juri Linkov <juri@jurta.org>
Date: Mon, 23 Jan 2006 01:19:35 +0000 (+0000)
Subject: (info-xref): Inherit from `link'.
X-Git-Tag: emacs-pretest-22.0.90~4625
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=de8ad208b1e42925d6e9ea237d9bbd02c02b21b0;p=emacs.git

(info-xref): Inherit from `link'.
(info-xref-visited): Inherit from `link-visited'.
---

diff --git a/lisp/info.el b/lisp/info.el
index 61d59741078..912e31f62ad 100644
--- a/lisp/info.el
+++ b/lisp/info.el
@@ -129,21 +129,14 @@ The Lisp code is executed when the node is selected.")
 (put 'info-menu-5 'face-alias 'info-menu-star)
 
 (defface info-xref
-  '((((min-colors 88)
-      (class color) (background light)) :foreground "blue1" :underline t)
-    (((class color) (background light)) :foreground "blue" :underline t)
-    (((min-colors 88)
-      (class color) (background dark)) :foreground "cyan1" :underline t)
-    (((class color) (background dark)) :foreground "cyan" :underline t)
-    (t :underline t))
-  "Face for Info cross-references."
+  '((t :inherit link))
+  "Face for unvisited Info cross-references."
   :group 'info)
 
 (defface info-xref-visited
-  '((default :inherit info-xref)
-    (((class color) (background light)) :foreground "magenta4")
-    (((class color) (background dark)) :foreground "violet"))
+  '((t :inherit link-visited))
   "Face for visited Info cross-references."
+  :version "22.1"
   :group 'info)
 
 (defcustom Info-fontify-visited-nodes t