From: Karl Heuer <kwzh@gnu.org>
Date: Mon, 25 Sep 1995 18:58:51 +0000 (+0000)
Subject: (Info-title-face-alist): New var.
X-Git-Tag: emacs-19.34~2776
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=98d8273c2ce8ee6f4532f5c084bd808cdb7266de;p=emacs.git

(Info-title-face-alist): New var.
(Info-fontify-node): Check for headings that are `underlined' with
characters on the following line.
---

diff --git a/lisp/info.el b/lisp/info.el
index 2b8aa560348..8c3e591c65b 100644
--- a/lisp/info.el
+++ b/lisp/info.el
@@ -1745,6 +1745,13 @@ the variable `Info-file-list-for-emacs'."
 	  (t
 	   (Info-goto-emacs-command-node command)))))
 
+(defvar Info-title-face-alist
+  '((?* bold underline)
+    (?= bold-italic underline)
+    (?- italic underline))
+  "*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 ?-).")
+
 (defun Info-fontify-node ()
   (save-excursion
     (let ((buffer-read-only nil))
@@ -1760,6 +1767,14 @@ the variable `Info-file-list-for-emacs'."
 	      (put-text-property (match-beginning 1) (match-end 1)
 				 'mouse-face 'highlight))))
       (goto-char (point-min))
+      (while (re-search-forward "\n\\([^ \t\n].+\\)\n\\(\\*+\\|=+\\|-+\\)$"
+				 nil t)
+	(put-text-property (match-beginning 1) (match-end 1)
+			   'face
+			   (assq (preceding-char) Info-title-face-alist))
+	(put-text-property (match-end 1) (match-end 2)
+			   'invisible t))
+      (goto-char (point-min))
       (while (re-search-forward "\\*Note[ \n\t]+\\([^:]*\\):" nil t)
 	(if (= (char-after (1- (match-beginning 0))) ?\") ; hack
 	    nil