Mercurial > emacs
changeset 22319:18b5b2445726
(sgml-font-lock-keywords-1): Add -. as
NMCHARs. Elide upper case (see font-lock-defaults). Generalize
comment declaration not to exclude markup.
| author | Dave Love <fx@gnu.org> |
|---|---|
| date | Mon, 01 Jun 1998 16:51:52 +0000 |
| parents | 2f9d6b2dd309 |
| children | aed8bb8b8837 |
| files | lisp/textmodes/sgml-mode.el |
| diffstat | 1 files changed, 5 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/textmodes/sgml-mode.el Mon Jun 01 14:23:44 1998 +0000 +++ b/lisp/textmodes/sgml-mode.el Mon Jun 01 16:51:52 1998 +0000 @@ -56,7 +56,7 @@ ?' Makes ' in text start a string. ?- Makes -- in text start a comment. -When only one of ?\\\" or ?' are included, \"'\" or '\"' as it can be found in +When only one of ?\\\" or ?' are included, \"'\" or '\"', as can be found in DTDs, start a string. To partially avoid this problem this also makes these self insert as named entities depending on `sgml-quick-keys'. @@ -207,10 +207,10 @@ ;; internal (defconst sgml-font-lock-keywords-1 - '(("<\\([!?][a-zA-Z0-9]+\\)" 1 font-lock-keyword-face) - ("<\\(/?[a-zA-Z0-9]+\\)" 1 font-lock-function-name-face) - ("[&%][-.A-Za-z0-9]+;?" . font-lock-variable-name-face) - ("<!--[^<>]*-->" . font-lock-comment-face))) + '(("<\\([!?][a-z][-.a-z0-9]+\\)" 1 font-lock-keyword-face) + ("<\\(/?[a-z][-.a-z0-9]+\\)" 1 font-lock-function-name-face) + ("[&%][a-z][-.a-z0-9]+;?" . font-lock-variable-name-face) + ("<! *--.*-- *>" . font-lock-comment-face))) (defconst sgml-font-lock-keywords-2 ())