(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 --git a/lisp/ChangeLog b/lisp/ChangeLog
index 9c83f1f0eb65b6c13f4e3176fe59f27c7a255a68..a31de5e7d6f84cb8fbb04e7300e34a821bb3983e 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,11 @@
+2000-10-20  Miles Bader  <miles@lsi.nec.co.jp>
+
+       * info.el (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.
+
 2000-10-19  Jason Rumney  <jasonr@gnu.org>
 
        * dired.el (dired-insert-directory): Do not let errors signalled by

diff --git a/lisp/info.el b/lisp/info.el
index 5817e6face154416e5b07fd0b2170a6b139b9b1f..fb228dd43728ffd8b82860126334c9c8d63adca2 100644 (file)
--- a/lisp/info.el
+++ b/lisp/info.el
@@ -2373,10 +2373,16 @@ the variable `Info-file-list-for-emacs'."
 
 (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 @@ the variable `Info-file-list-for-emacs'."
                    (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