(info-header-node): Tweak for color ttys.

8cc4cac1 · Miles Bader · 37a99821 · 8cc4cac1
Commit 8cc4cac1 authored Sep 20, 2000 by Miles Bader
Hide whitespace changes
Inline Side-by-side

Showing with 5 additions and 1 deletion

lisp/info.el lisp/info.el +5 -1

No files found.
--- a/lisp/info.el
+++ b/lisp/info.el
@@ -97,7 +97,11 @@ A header-line does not scroll with the rest of the buffer."
  :group 'info)
 (defface info-header-node
-  '((t (:inherit info-node)))
+  '(;; Because header-lines on tty's are usually reverse-video, the
+    ;; normal info-node colors probably won't look good, so just stick
+    ;; with bold-italic
+    (((type tty) (class color)) (:bold t :italic t))
+    (t (:inherit info-node)))
  "Face for Info nodes in a node header."
  :group 'info)