From 8ec8f673fab973455f8a7e6b471144cb91cf806a Mon Sep 17 00:00:00 2001 From: Miles Bader Date: Mon, 18 Sep 2000 05:55:03 +0000 Subject: [PATCH] (Info-title-3-face, Info-title-2-face, Info-title-1-face): Use face inheritance and relative sizes instead of hard-wiring things. --- lisp/ChangeLog | 8 ++++++++ lisp/info.el | 6 +++--- 2 files changed, 11 insertions(+), 3 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 4c7c764fc10..4cb997f98a9 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,11 @@ +2000-09-18 Miles Bader + + * info.el (Info-title-3-face, Info-title-2-face) + (Info-title-1-face): Use face inheritance and relative sizes + instead of hard-wiring things. + + * faces.el (secondary-selection): Make dark-background variant sane. + 2000-09-16 Andrew Innes * makefile.nt (compile-files): No need to make .elc files diff --git a/lisp/info.el b/lisp/info.el index 4a2ed94ad46..28ec2ca5e98 100644 --- a/lisp/info.el +++ b/lisp/info.el @@ -2340,17 +2340,17 @@ the variable `Info-file-list-for-emacs'." (Info-goto-emacs-command-node command))))) (defface Info-title-1-face - '((t (:family "helv" :height 240 :weight bold))) + '((t (:height 1.2 :inherit Info-title-2-face))) "Face for Info titles at level 1." :group 'info) (defface Info-title-2-face - '((t (:family "helv" :height 180 :weight bold))) + '((t (:height 1.2 :inherit Info-title-3-face))) "Face for Info titles at level 2." :group 'info) (defface Info-title-3-face - '((t (:family "helv" :height 160 :weight bold))) + '((t (:height 1.2 :weight bold :inherit variable-pitch))) "Face for Info titles at level 3." :group 'info) -- 2.39.2