From: Jan Nieuwenhuizen <janneke@gnu.org>
Date: Mon, 30 Sep 2002 11:10:44 +0000 (+0000)
Subject: *** empty log message ***
X-Git-Tag: release/1.7.2~14
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=b94c77562ed56b0fead1b40ef1988b3e79f58073;p=lilypond.git

*** empty log message ***
---

diff --git a/scm/to-xml.scm b/scm/to-xml.scm
index ea46d57241..dbd12f34ed 100644
--- a/scm/to-xml.scm
+++ b/scm/to-xml.scm
@@ -9,6 +9,19 @@ class of a documentnode (similar to how
 That is much cleaner: building the document, and dumping it to output
 is then separated.
 
+
+   foo = \score { ... }
+
+   #(as-xml foo)
+
+   <score>
+     <music></music>
+     <paperoutput>
+     </paperoutput>
+   </score>
+
+
+
 "
 
 
@@ -158,6 +171,9 @@ is then separated.
 	(ignore-props '(origin elements duration pitch element))
 	)
 
+     ;; As almost everything is music; <SequentialMusic> is
+     ;; probably better than <music type="SequentialMusic">?
+     
      (display (open-tag 'music (cons `(type . ,name) mprops) ignore-props)
 	      port)
      (if (duration? d)