From de8ad208b1e42925d6e9ea237d9bbd02c02b21b0 Mon Sep 17 00:00:00 2001 From: Juri Linkov Date: Mon, 23 Jan 2006 01:19:35 +0000 Subject: [PATCH] (info-xref): Inherit from `link'. (info-xref-visited): Inherit from `link-visited'. --- lisp/info.el | 15 ++++----------- 1 file changed, 4 insertions(+), 11 deletions(-) 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 -- 2.39.2