[Emacs-diffs] /srv/bzr/emacs/trunk r108812: xml.el: Fix last change.

[Chong Yidong]

------------------------------------------------------------
revno: 108812
committer: Chong Yidong <address@hidden>
branch nick: trunk
timestamp: Sat 2012-06-30 21:57:55 +0800
message:
  xml.el: Fix last change.
modified:
  lisp/xml.el

=== modified file 'lisp/xml.el'
--- a/lisp/xml.el       2012-06-30 11:33:22 +0000
+++ b/lisp/xml.el       2012-06-30 13:57:55 +0000
@@ -722,9 +722,8 @@
   "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)