# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 896066886 0
# Node ID 8e667bbef6d67b0c83a87ffdc6d5333c6709928c
# Parent  239a4b8003035a3f8e23ca81c5acb34bc9e474c0
(sgml-font-lock-keywords-1): Accept upper case like lower case.

diff -r 239a4b800303 -r 8e667bbef6d6 lisp/textmodes/sgml-mode.el
--- a/lisp/textmodes/sgml-mode.el	Sun May 24 23:24:25 1998 +0000
+++ b/lisp/textmodes/sgml-mode.el	Mon May 25 03:28:06 1998 +0000
@@ -207,8 +207,8 @@
 
 ;; 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)))