(sgml-font-lock-keywords-1): Accept upper case like lower case.

diff --git a/lisp/textmodes/sgml-mode.el b/lisp/textmodes/sgml-mode.el
index aec363dc10e2ff25784f516f3d085d26a2f89f21..0ebd95f55c62bfc53f680704491d58d922683dc6 100644 (file)
--- a/lisp/textmodes/sgml-mode.el
+++ b/lisp/textmodes/sgml-mode.el
@@ -207,8 +207,8 @@ Any terminating `>' or `/' is not matched.")
 
 ;; internal
 (defconst sgml-font-lock-keywords-1
-  '(("<\\([!?][a-z0-9]+\\)" 1 font-lock-keyword-face)
-    ("<\\(/?[a-z0-9]+\\)" 1 font-lock-function-name-face)
+  '(("<\\([!?][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)))