mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-28 07:45:00 +00:00
Code Issues Releases Activity

(Info-title-face-alist): New var.

Browse Source 
(Info-fontify-node): Check for headings that are `underlined' with
characters on the following line.
This commit is contained in:
Karl Heuer 1995-09-25 18:58:51 +00:00
parent 79873d5027
commit 98d8273c2c
1 changed files with 15 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
lisp/info.el
View File

@ -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