From 32fbd2a380261e66e552f6f07e3a456024902816 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 25 May 1998 03:28:06 +0000 Subject: [PATCH] (sgml-font-lock-keywords-1): Accept upper case like lower case. --- lisp/textmodes/sgml-mode.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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))) -- 2.39.2