diff options
| author | Chong Yidong <cyd@gnu.org> | 2012-06-30 21:57:55 +0800 |
|---|---|---|
| committer | Chong Yidong <cyd@gnu.org> | 2012-06-30 21:57:55 +0800 |
| commit | 53dc3c68eabe6a92d6ccd232c217692b795ff88b (patch) | |
| tree | 5f6fbd4138d28e6ab102292579f312054975f9e1 /lisp/xml.el | |
| parent | a40c87a0093d46699082914a4487bd364eb0136e (diff) | |
| download | emacs-53dc3c68eabe6a92d6ccd232c217692b795ff88b.tar.gz | |
xml.el: Fix last change.
Diffstat (limited to 'lisp/xml.el')
| -rw-r--r-- | lisp/xml.el | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/lisp/xml.el b/lisp/xml.el index f135bdfabe4..9bad7d95cce 100644 --- a/lisp/xml.el +++ b/lisp/xml.el @@ -722,9 +722,8 @@ This follows the rule [28] in the XML specifications." "Return the replacement text for the entity value STRING. The replacement text is obtained by replacing character references and parameter-entity references." - (let ((ref-re (eval-when-compile - (concat "\\(?:&#\\([0-9]+\\)\\|&#x\\([0-9a-fA-F]+\\)\\|%\\(" - xml-name-re "\\)\\);"))) + (let ((ref-re (concat "\\(?:&#\\([0-9]+\\)\\|&#x\\([0-9a-fA-F]+\\)\\|%\\(" + xml-name-re "\\)\\);")) children) (while (string-match ref-re string) (push (substring string 0 (match-beginning 0)) children) |