Mercurial > emacs

changeset 51105:aac5eaf1454e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(xml-name-regexp): Wrap in `eval-and-compile'.
author John Paul Wallington <jpw@pobox.com>
date Mon, 19 May 2003 17:43:04 +0000
parents e99acbbf127d
children 300c1d60ba63
files lisp/xml.el
diffstat 1 files changed, 2 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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*