Mercurial > emacs
changeset 9384:798467725c8d
(texinfo-font-lock-keywords): New variable.
(texinfo-mode): Set font-lock-keywords locally.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 07 Oct 1994 10:05:49 +0000 |
| parents | c4fa081b416e |
| children | 297f0781c8ae |
| files | lisp/textmodes/texinfo.el |
| diffstat | 1 files changed, 16 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/textmodes/texinfo.el Fri Oct 07 10:04:06 1994 +0000 +++ b/lisp/textmodes/texinfo.el Fri Oct 07 10:05:49 1994 +0000 @@ -196,6 +196,20 @@ (modify-syntax-entry ?} "){" texinfo-mode-syntax-table) (modify-syntax-entry ?\' "w" texinfo-mode-syntax-table)) +(defvar texinfo-font-lock-keywords + (list + "@\\(@\\|[^}\t \n{]+\\)" ;commands + '("^\\(@c\\|@comment\\)[ \t].*$" . font-lock-comment-face) ;comments + '("^\\(*.*\\)[\t ]*$" 1 font-lock-function-name-face t) ;menu items + '("@\\(emph\\|strong\\|b\\|i\\){\\([^}]+\\)" 2 font-lock-comment-face t) + '("@\\(file\\|kbd\\|key\\){\\([^}]+\\)" 2 font-lock-string-face t) + '("@\\(samp\\|code\\|var\\){\\([^}]+\\)" 2 font-lock-function-name-face t) + '("@\\(xref\\|pxref\\){\\([^}]+\\)" 2 font-lock-keyword-face t) + '("@end *\\([a-zA-Z0-9]+\\)[ \t]*$" 1 font-lock-function-name-face t) + '("@item \\(.*\\)$" 1 font-lock-function-name-face t) + '("\\$\\([^$]*\\)\\$" 1 font-lock-string-face t) + ) + "Additional expressions to highlight in TeXinfo mode.") ;;; Keybindings (defvar texinfo-mode-map nil) @@ -371,6 +385,8 @@ (setq comment-start-skip "@c +") (make-local-variable 'words-include-escapes) (setq words-include-escapes t) + (make-local-variable 'font-lock-keywords) + (setq font-lock-keywords texinfo-font-lock-keywords) (make-local-variable 'tex-start-of-header) (setq tex-start-of-header "%**start") (make-local-variable 'tex-end-of-header)