Mercurial > emacs

comparison lisp/info.el @ 68342:e3989d3241d5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(info-xref): Inherit from `link'. (info-xref-visited): Inherit from `link-visited'.
author Juri Linkov <juri@jurta.org>
date Mon, 23 Jan 2006 01:19:35 +0000
parents 51ca63f92c59
children 303bb77ca438 5b7d410e31f9
comparison
equal deleted inserted replaced
68341:acccd9689759 68342:e3989d3241d5
127 "Face for every third `*' in an Info menu." 127 "Face for every third `*' in an Info menu."
128 :group 'info) 128 :group 'info)
129 (put 'info-menu-5 'face-alias 'info-menu-star) 129 (put 'info-menu-5 'face-alias 'info-menu-star)
130 130
131 (defface info-xref 131 (defface info-xref
132 '((((min-colors 88) 132 '((t :inherit link))
133 (class color) (background light)) :foreground "blue1" :underline t) 133 "Face for unvisited Info cross-references."
134 (((class color) (background light)) :foreground "blue" :underline t)
135 (((min-colors 88)
136 (class color) (background dark)) :foreground "cyan1" :underline t)
137 (((class color) (background dark)) :foreground "cyan" :underline t)
138 (t :underline t))
139 "Face for Info cross-references."
140 :group 'info) 134 :group 'info)
141 135
142 (defface info-xref-visited 136 (defface info-xref-visited
143 '((default :inherit info-xref) 137 '((t :inherit link-visited))
144 (((class color) (background light)) :foreground "magenta4")
145 (((class color) (background dark)) :foreground "violet"))
146 "Face for visited Info cross-references." 138 "Face for visited Info cross-references."
139 :version "22.1"
147 :group 'info) 140 :group 'info)
148 141
149 (defcustom Info-fontify-visited-nodes t 142 (defcustom Info-fontify-visited-nodes t
150 "*Non-nil to fontify references to visited nodes in `info-xref-visited' face." 143 "*Non-nil to fontify references to visited nodes in `info-xref-visited' face."
151 :version "22.1" 144 :version "22.1"