From 4fa91cfeccea658125751d12980fb545f0921fde Mon Sep 17 00:00:00 2001 From: Dave Love Date: Mon, 1 Jun 1998 16:51:52 +0000 Subject: [PATCH] (sgml-font-lock-keywords-1): Add -. as NMCHARs. Elide upper case (see font-lock-defaults). Generalize comment declaration not to exclude markup. --- lisp/textmodes/sgml-mode.el | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/lisp/textmodes/sgml-mode.el b/lisp/textmodes/sgml-mode.el index 0ebd95f55c6..c92a8df221c 100644 --- a/lisp/textmodes/sgml-mode.el +++ b/lisp/textmodes/sgml-mode.el @@ -56,7 +56,7 @@ The supported characters and potential disadvantages are: ?' 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 @@ Any terminating `>' or `/' is not matched.") ;; 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 ()) -- 2.39.2