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

32fbd2a3 · Richard M. Stallman · 6efc7887 · 32fbd2a3
Commit 32fbd2a3 authored May 25, 1998 by Richard M. Stallman
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 2 deletions

lisp/textmodes/sgml-mode.el lisp/textmodes/sgml-mode.el +2 -2

No files found.
--- 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)))