From 52cbdfbd0afa35d5f03a824bd8db66e55a7224ca Mon Sep 17 00:00:00 2001 From: Miles Bader Date: Sun, 17 Sep 2000 17:03:20 +0000 Subject: [PATCH] (info-node, info-xref): Add dark-background variants. (info-header-xref, info-header-node): Change to inherit from non-header faces. --- lisp/info.el | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/lisp/info.el b/lisp/info.el index dd1a5490e29..4a2ed94ad46 100644 --- a/lisp/info.el +++ b/lisp/info.el @@ -61,7 +61,8 @@ The Lisp code is executed when the node is selected.") :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 @@ The Lisp code is executed when the node is selected.") :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 @@ A header-line does not scroll with the rest of the buffer." :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) -- 2.39.2