Mercurial > emacs
changeset 31666:3cc588d57c8c
(info-node, info-xref): Add dark-background variants.
(info-header-xref, info-header-node): Change to inherit from non-header faces.
author | Miles Bader <miles@gnu.org> |
---|---|
date | Sun, 17 Sep 2000 17:03:20 +0000 |
parents | 37d1a054e5e0 |
children | f5000d258412 |
files | lisp/info.el |
diffstat | 1 files changed, 6 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/info.el Sun Sep 17 17:00:05 2000 +0000 +++ b/lisp/info.el Sun Sep 17 17:03:20 2000 +0000 @@ -61,7 +61,8 @@ :group 'info) (defface info-node - '((((class color)) (:foreground "brown" :bold t :italic t)) + '((((class color) (background light)) (:foreground "brown" :bold t :italic t)) + (((class color) (background dark)) (:foreground "white" :bold t :italic t)) (t (:bold t :italic t))) "Face for Info node names." :group 'info) @@ -73,7 +74,8 @@ :group 'info) (defface info-xref - '((((class color)) (:foreground "magenta4" :bold t)) + '((((class color) (background light)) (:foreground "magenta4" :bold t)) + (((class color) (background dark)) (:foreground "cyan" :bold t)) (t (:bold t))) "Face for Info cross-references." :group 'info) @@ -90,12 +92,12 @@ :group 'info) (defface info-header-xref - '((t (:weight bold))) + '((t (:inherit info-xref))) "Face for Info cross-references in a node header." :group 'info) (defface info-header-node - '((t (:weight bold :slant italic))) + '((t (:inherit info-node))) "Face for Info nodes in a node header." :group 'info)