From: Dave Love <fx@gnu.org>
Date: Mon, 1 Jun 1998 16:51:52 +0000 (+0000)
Subject: (sgml-font-lock-keywords-1): Add -. as
X-Git-Tag: emacs-20.3~758
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4fa91cfeccea658125751d12980fb545f0921fde;p=emacs.git

(sgml-font-lock-keywords-1): Add -. as
NMCHARs.  Elide upper case (see font-lock-defaults).  Generalize
comment declaration not to exclude markup.
---

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 ())