# HG changeset patch
# User Miles Bader <miles@gnu.org>
# Date 972010641 0
# Node ID 816cfb30c5de05212874c69df6ad8a1c94a106a0
# Parent  3461c855d0de6f9de5ae7bcf580fb5025f993568
(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.

diff -r 3461c855d0de -r 816cfb30c5de lisp/info.el
--- 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