Mercurial > emacs
comparison lisp/info.el @ 26738:407a5a4056e8
(info-node, info-menu-5, info-xref): Define colors for Info faces if
the display supports them.
| author | Eli Zaretskii <eliz@gnu.org> |
|---|---|
| date | Mon, 06 Dec 1999 18:00:33 +0000 |
| parents | d779cb4aa2ae |
| children | e640e22d23c8 |
comparison
equal
deleted
inserted
replaced
| 26737:0aad3e0b47d2 | 26738:407a5a4056e8 |
|---|---|
| 59 "*Non-nil enables highlighting and fonts in Info nodes." | 59 "*Non-nil enables highlighting and fonts in Info nodes." |
| 60 :type 'boolean | 60 :type 'boolean |
| 61 :group 'info) | 61 :group 'info) |
| 62 | 62 |
| 63 (defface info-node | 63 (defface info-node |
| 64 '((t (:bold t :italic t))) | 64 '((((class color)) (:foreground "brown" :bold t :italic t)) |
| 65 (t (:bold t :italic t))) | |
| 65 "Face for Info node names." | 66 "Face for Info node names." |
| 66 :group 'info) | 67 :group 'info) |
| 67 | 68 |
| 68 (defface info-menu-5 | 69 (defface info-menu-5 |
| 69 '((t (:underline t))) | 70 '((((class color)) (:foreground "red1")) |
| 71 (t (:underline t))) | |
| 70 "Face for the fifth and tenth `*' in an Info menu." | 72 "Face for the fifth and tenth `*' in an Info menu." |
| 71 :group 'info) | 73 :group 'info) |
| 72 | 74 |
| 73 (defface info-xref | 75 (defface info-xref |
| 74 '((t (:bold t))) | 76 '((((class color)) (:foreground "magenta4" :bold t)) |
| 77 (t (:bold t))) | |
| 75 "Face for Info cross-references." | 78 "Face for Info cross-references." |
| 76 :group 'info) | 79 :group 'info) |
| 77 | 80 |
| 78 (defcustom Info-fontify-maximum-menu-size 30000 | 81 (defcustom Info-fontify-maximum-menu-size 30000 |
| 79 "*Maximum size of menu to fontify if `Info-fontify' is non-nil." | 82 "*Maximum size of menu to fontify if `Info-fontify' is non-nil." |