From: Chong Yidong <cyd@gnu.org>
Date: Sat, 30 Jun 2012 13:57:55 +0000 (+0800)
Subject: xml.el: Fix last change.
X-Git-Tag: emacs-24.2.90~1199^2~275
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=53dc3c68eabe6a92d6ccd232c217692b795ff88b;p=emacs.git

xml.el: Fix last change.
---

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)