From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Tue, 2 Jan 2007 22:11:57 +0000 (+0100)
Subject: show XML with ly:progress
X-Git-Tag: release/2.11.8-1~23
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=9d60dfbbd11e53e38348b82449caffcaf6df315b;p=lilypond.git

show XML with ly:progress
---

diff --git a/input/regression/to-xml.ly b/input/regression/to-xml.ly
index 036063fbdb..7db3f8dd08 100644
--- a/input/regression/to-xml.ly
+++ b/input/regression/to-xml.ly
@@ -1,27 +1,18 @@
 \version "2.10.0"
 
-fooBar =  { << c''4 \\ g'4 >> }
+testMusic =  { << c''4 \\ g'4 >> }
 
-#(ly:set-option 'parse-protect #f)
 #(load-from-path "to-xml.scm")
 
-#(music-to-xml fooBar (current-output-port))
+#(ly:progress "\nXML:\n\n~A\n"
+  (call-with-output-string
+   (lambda (p) (music-to-xml testMusic p))))
 
 \header {
-    texidoc = "@cindex To XML"
-	texidoc = #(string-append
-      "The input representation is very generic. Therefore, it
-      should not be hard to convert it to XML or a similar format:\n\n"
-
-      "@example\n"
-	(call-with-output-string
-	       (lambda (p) (music-to-xml fooBar p))
-      )
-    "@end example" )
+  texidoc =
+  "The input representation is generic, and may be translated to XML. "
 }
 
 
-\score {
-\fooBar
-}
+\testMusic