From bbed5c3f02ffa1d1d532490997e1e66f0e8d1615 Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Mon, 31 Jan 2000 19:46:04 +0000 Subject: [PATCH] (Info-title-face-alist): Removed. (Info-title-1-face, Info-title-2-face, Info-title-3-face): New faces. (Info-fontify-node): Use these faces. --- lisp/info.el | 31 +++++++++++++++++++++++++------ 1 file changed, 25 insertions(+), 6 deletions(-) diff --git a/lisp/info.el b/lisp/info.el index c2eff14e424..11e60c09c54 100644 --- a/lisp/info.el +++ b/lisp/info.el @@ -2221,10 +2221,25 @@ the variable `Info-file-list-for-emacs'." (t (Info-goto-emacs-command-node command))))) +(defface Info-title-1-face + '((t (:family "helv" :height 240 :weight bold))) + "Face for Info titles at level 1." + :group 'info) + +(defface Info-title-2-face + '((t (:family "helv" :height 180 :weight bold))) + "Face for Info titles at level 2." + :group 'info) + +(defface Info-title-3-face + '((t (:family "helv" :height 160 :weight bold))) + "Face for Info titles at level 3." + :group 'info) + (defcustom Info-title-face-alist - '((?* bold underline) - (?= bold-italic underline) - (?- italic underline)) + '((?* (face (variable-pitch bold) display (height (+ 4)))) + (?= (face (variable-pitch bold) display (height (+ 3)))) + (?- (face (variable-pitch bold) display (height (+ 2))))) "*Alist of face or list of faces to use for pseudo-underlined titles. The alist key is the character the title is underlined with (?*, ?= or ?-)." :type '(repeat (list character face face)) @@ -2252,9 +2267,13 @@ The alist key is the character the title is underlined with (?*, ?= or ?-)." (goto-char (point-min)) (while (re-search-forward "\n\\([^ \t\n].+\\)\n\\(\\*+\\|=+\\|-+\\)$" nil t) - (put-text-property (match-beginning 1) (match-end 1) - 'face - (cdr (assq (preceding-char) Info-title-face-alist))) + (let ((c (preceding-char)) + face) + (cond ((= c ?*) (setq face 'Info-title-1-face)) + ((= c ?=) (setq face 'Info-title-2-face)) + (t (setq face 'Info-title-3-face))) + (put-text-property (match-beginning 1) (match-end 1) + 'face face)) ;; This is a serious problem for trying to handle multiple ;; frame types at once. We want this text to be invisible ;; on frames that can display the font above. -- 2.39.5