Mercurial > emacs
comparison lisp/xml.el @ 51105:aac5eaf1454e
(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 | d604b76d3bbd |
| children | ed3269a70a9f |
comparison
equal
deleted
inserted
replaced
| 51104:e99acbbf127d | 51105:aac5eaf1454e |
|---|---|
| 174 table) | 174 table) |
| 175 "Syntax table used by `xml-parse-region'.") | 175 "Syntax table used by `xml-parse-region'.") |
| 176 | 176 |
| 177 ;; XML [5] | 177 ;; XML [5] |
| 178 ;; Note that [:alpha:] matches all multibyte chars with word syntax. | 178 ;; Note that [:alpha:] matches all multibyte chars with word syntax. |
| 179 (defconst xml-name-regexp "[[:alpha:]_:][[:alnum:]._:-]*") | 179 (eval-and-compile |
| 180 (defconst xml-name-regexp "[[:alpha:]_:][[:alnum:]._:-]*")) | |
| 180 | 181 |
| 181 ;; Fixme: This needs re-writing to deal with the XML grammar properly, i.e. | 182 ;; Fixme: This needs re-writing to deal with the XML grammar properly, i.e. |
| 182 ;; document ::= prolog element Misc* | 183 ;; document ::= prolog element Misc* |
| 183 ;; prolog ::= XMLDecl? Misc* (doctypedecl Misc*)? | 184 ;; prolog ::= XMLDecl? Misc* (doctypedecl Misc*)? |
| 184 | 185 |