diff options
| author | John Paul Wallington <jpw@pobox.com> | 2003-05-19 17:45:27 +0000 |
|---|---|---|
| committer | John Paul Wallington <jpw@pobox.com> | 2003-05-19 17:45:27 +0000 |
| commit | ab16145759593e5e0eff935a8eb10abbaf57f5a8 (patch) | |
| tree | 2492727911ee6bc540169bb9cf9cc3f816979544 | |
| parent | e54165ff61f4f6fb652842acdbc7253cfc11377e (diff) | |
| download | emacs-ab16145759593e5e0eff935a8eb10abbaf57f5a8.tar.gz | |
(xml-name-regexp): Wrap in `eval-and-compile'.
| -rw-r--r-- | lisp/ChangeLog | 4 | ||||
| -rw-r--r-- | lisp/xml.el | 3 |
2 files changed, 6 insertions, 1 deletions
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* |