summaryrefslogtreecommitdiff
path: root/lisp/xml.el
diff options
context:
space:
mode:
authorJohn Paul Wallington <jpw@pobox.com>2003-05-19 17:45:27 +0000
committerJohn Paul Wallington <jpw@pobox.com>2003-05-19 17:45:27 +0000
commitab16145759593e5e0eff935a8eb10abbaf57f5a8 (patch)
tree2492727911ee6bc540169bb9cf9cc3f816979544 /lisp/xml.el
parente54165ff61f4f6fb652842acdbc7253cfc11377e (diff)
downloademacs-ab16145759593e5e0eff935a8eb10abbaf57f5a8.tar.gz
(xml-name-regexp): Wrap in `eval-and-compile'.
Diffstat (limited to 'lisp/xml.el')
-rw-r--r--lisp/xml.el3
1 files changed, 2 insertions, 1 deletions
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*