diff options
| author | Gerd Moellmann <gerd@gnu.org> | 2000-01-31 19:46:04 +0000 |
|---|---|---|
| committer | Gerd Moellmann <gerd@gnu.org> | 2000-01-31 19:46:04 +0000 |
| commit | bbed5c3f02ffa1d1d532490997e1e66f0e8d1615 (patch) | |
| tree | 3a55a6d5e7b80ebd2278a6e40ee94d61d14a5afa | |
| parent | b8e07d8501e9c84a403b8a6546c5d02bb4b40c3d (diff) | |
| download | emacs-bbed5c3f02ffa1d1d532490997e1e66f0e8d1615.tar.gz | |
(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.
| -rw-r--r-- | lisp/info.el | 31 |
1 files 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. |