From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 25 May 1998 03:28:06 +0000 (+0000)
Subject: (sgml-font-lock-keywords-1): Accept upper case like lower case.
X-Git-Tag: emacs-20.3~855
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=32fbd2a380261e66e552f6f07e3a456024902816;p=emacs.git

(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 aec363dc10e..0ebd95f55c6 100644
--- 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)))