# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 896719912 0
# Node ID 18b5b244572649e1d543857d0dd84938e9710539
# Parent  2f9d6b2dd3092723cf57f7c7d86f1722f23525b1
(sgml-font-lock-keywords-1): Add -. as
NMCHARs.  Elide upper case (see font-lock-defaults).  Generalize
comment declaration not to exclude markup.

diff -r 2f9d6b2dd309 -r 18b5b2445726 lisp/textmodes/sgml-mode.el
--- 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 ())