From 53c9ab4f44bb9b91004476a032e59dd0d1ee3fd1 Mon Sep 17 00:00:00 2001
From: Miles Bader <miles@gnu.org>
Date: Sun, 17 Sep 2000 17:05:15 +0000
Subject: [PATCH] (header-line): Tweak face.
---
lisp/ChangeLog | 4 +++-
lisp/faces.el | 4 ++--
2 files changed, 5 insertions(+), 3 deletions(-)
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8efb523be63..06b3c739d0f 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
2000-09-18 Miles Bader <miles@gnu.org>
+ * info.el (info-node, info-xref): Add dark-background variants.
+
* faces.el (header-line): Change defaults to be less confusing
when mixed with mode-lines.
@@ -7,7 +9,7 @@
Add extra `help-echo' and `local-map' props to node xrefs.
Use header-specific faces for node-names & xrefs.
(Info-use-header-line): New variable.
- (info-header, info-header-xref, info-header-node): New faces.
+ (info-header-xref, info-header-node): New faces.
(Info-setup-header-line): New function.
(Info-select-node): Call Info-setup-header-line when enabled.
(Info-extract-pointer): Work even if the header line is hidden.
diff --git a/lisp/faces.el b/lisp/faces.el
index d50600c4a6c..4d0083a276f 100644
--- a/lisp/faces.el
+++ b/lisp/faces.el
@@ -1533,11 +1533,11 @@ created."
(:inverse-video t))
(((class color) (background light))
(:box (:line-width 1 :style released-button)
- :background "grey90"
+ :background "grey90" :foreground "grey20"
:inherit mode-line))
(((class color) (background dark))
(:box (:line-width 1 :style released-button)
- :background "grey20"
+ :background "grey20" :foreground "grey90"
:inherit mode-line))
(((class mono))
(:box (:line-width 1 :style released-button)
--
2.39.5