procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

xml.el: Fix last change.

Browse source
This commit is contained in:
Chong Yidong 2012-06-30 21:57:55 +08:00
parent a40c87a009
commit 53dc3c68ea
1 changed files with 2 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/xml.el
View file

@ -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)