# HG changeset patch
# User John Paul Wallington <jpw@pobox.com>
# Date 1053366184 0
# Node ID aac5eaf1454ead4ea2a581355f543868e23f8d01
# Parent  e99acbbf127dbbee8cc2ac1bc35eb4f59f23ee48
(xml-name-regexp): Wrap in `eval-and-compile'.

diff -r e99acbbf127d -r aac5eaf1454e lisp/xml.el
--- a/lisp/xml.el	Mon May 19 16:36:06 2003 +0000
+++ b/lisp/xml.el	Mon May 19 17:43:04 2003 +0000
@@ -176,7 +176,8 @@
 
 ;; XML [5]
 ;; Note that [:alpha:] matches all multibyte chars with word syntax.
-(defconst xml-name-regexp "[[:alpha:]_:][[:alnum:]._:-]*")
+(eval-and-compile
+  (defconst xml-name-regexp "[[:alpha:]_:][[:alnum:]._:-]*"))
 
 ;; Fixme:  This needs re-writing to deal with the XML grammar properly, i.e.
 ;;   document    ::=    prolog element Misc*