From: John Paul Wallington <jpw@pobox.com>
Date: Mon, 19 May 2003 17:45:27 +0000 (+0000)
Subject: (xml-name-regexp): Wrap in `eval-and-compile'.
X-Git-Tag: ttn-vms-21-2-B4~10066
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ab16145759593e5e0eff935a8eb10abbaf57f5a8;p=emacs.git

(xml-name-regexp): Wrap in `eval-and-compile'.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 9fadee1220c..277d4952b8a 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2003-05-19  John Paul Wallington  <jpw@gnu.org>
+
+	* xml.el (xml-name-regexp): Wrap in `eval-and-compile'.
+
 2003-05-19  Dave Love  <fx@gnu.org>
 
 	* xml.el: Doc fixes.
diff --git a/lisp/xml.el b/lisp/xml.el
index ca593590126..01d1afa3b05 100644
--- a/lisp/xml.el
+++ b/lisp/xml.el
@@ -176,7 +176,8 @@ If PARSE-DTD is non-nil, the DTD is parsed rather than skipped."
 
 ;; 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*