From: Jan Nieuwenhuizen <janneke@gnu.org>
Date: Sun, 29 Sep 2002 23:54:22 +0000 (+0000)
Subject: Fixje
X-Git-Tag: release/1.7.2~16
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=9019dd53357a12a3edce5e3d0dab529802584e04;p=lilypond.git

Fixje
---

diff --git a/scm/to-xml.scm b/scm/to-xml.scm
index 76d78585d3..fc65e9d847 100644
--- a/scm/to-xml.scm
+++ b/scm/to-xml.scm
@@ -105,6 +105,13 @@ is then separated.
 	      (re-sub-alist string (cdr alist))
 	      string)))
 
+(define xml-entities-alist
+  '(("\"" . "&quot;")
+    ("<" . "&lt;")
+    (">" . "&gt;")
+    ("'" . "&apos;")
+    ("&" . "&amp;")))
+
 (define (open-tag tag attrs exceptions)
   (define (candidate? x)
     (not (memq (car x) exceptions)))
@@ -122,11 +129,7 @@ is then separated.
     "=\""
 
     (let ((s (call-with-output-string (lambda (port) (display val port)))))
-      (re-sub-alist s '(("\"" . "&quot;")
-			("<" . "&lt;")
-			(">" . "&gt;")
-			("'" . "&apos;")
-			("&" . "&amp;"))))
+      (re-sub-alist s xml-entities-alist))
     
     "\""
     )))