Mercurial > emacs

changeset 32678:816cfb30c5de

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Info-fontify-node): Add support for @subsubsection titles, which use `Info-title-4-face'. (Info-title-4-face): New face. (Info-title-3-face): Inherit from Info-title-4-face instead of variable-pitch.
author Miles Bader <miles@gnu.org>
date Fri, 20 Oct 2000 02:57:21 +0000
parents 3461c855d0de
children 419e30f6c4f3
files lisp/info.el
diffstat 1 files changed, 10 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/info.el	Fri Oct 20 02:25:28 2000 +0000
+++ b/lisp/info.el	Fri Oct 20 02:57:21 2000 +0000
@@ -2373,10 +2373,16 @@
 
 (defface Info-title-3-face
   '((((type tty pc) (class color)) (:weight bold))
-    (t (:height 1.2 :weight bold :inherit variable-pitch)))
+    (t (:height 1.2 :inherit Info-title-4-face)))
   "Face for Info titles at level 3."
   :group 'info)
 
+(defface Info-title-4-face
+  '((((type tty pc) (class color)) (:weight bold))
+    (t (:weight bold :inherit variable-pitch)))
+  "Face for Info titles at level 4."
+  :group 'info)
+
 (defun Info-fontify-node ()
   (save-excursion
     (let ((buffer-read-only nil)
@@ -2408,13 +2414,14 @@
 		    (put-text-property tbeg nend 'local-map keymap))))
 	      ))))
       (goto-char (point-min))
-      (while (re-search-forward "\n\\([^ \t\n].+\\)\n\\(\\*+\\|=+\\|-+\\)$"
+      (while (re-search-forward "\n\\([^ \t\n].+\\)\n\\(\\*+\\|=+\\|-+\\|\\.+\\)$"
 				nil t)
 	(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)))
+		((= c ?-) (setq face 'Info-title-3-face))
+		(t        (setq face 'Info-title-4-face)))
 	  (put-text-property (match-beginning 1) (match-end 1)
 			     'face face))
 	;; This is a serious problem for trying to handle multiple