diff options
| author | Chong Yidong | 2012-06-30 21:57:55 +0800 |
|---|---|---|
| committer | Chong Yidong | 2012-06-30 21:57:55 +0800 |
| commit | 53dc3c68eabe6a92d6ccd232c217692b795ff88b (patch) | |
| tree | 5f6fbd4138d28e6ab102292579f312054975f9e1 | |
| parent | a40c87a0093d46699082914a4487bd364eb0136e (diff) | |
| download | emacs-53dc3c68eabe6a92d6ccd232c217692b795ff88b.tar.gz emacs-53dc3c68eabe6a92d6ccd232c217692b795ff88b.zip | |
xml.el: Fix last change.
| -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." | |||
| 722 | "Return the replacement text for the entity value STRING. | 722 | "Return the replacement text for the entity value STRING. |
| 723 | The replacement text is obtained by replacing character | 723 | The replacement text is obtained by replacing character |
| 724 | references and parameter-entity references." | 724 | references and parameter-entity references." |
| 725 | (let ((ref-re (eval-when-compile | 725 | (let ((ref-re (concat "\\(?:&#\\([0-9]+\\)\\|&#x\\([0-9a-fA-F]+\\)\\|%\\(" |
| 726 | (concat "\\(?:&#\\([0-9]+\\)\\|&#x\\([0-9a-fA-F]+\\)\\|%\\(" | 726 | xml-name-re "\\)\\);")) |
| 727 | xml-name-re "\\)\\);"))) | ||
| 728 | children) | 727 | children) |
| 729 | (while (string-match ref-re string) | 728 | (while (string-match ref-re string) |
| 730 | (push (substring string 0 (match-beginning 0)) children) | 729 | (push (substring string 0 (match-beginning 0)) children) |