lilypond-1.5.15

diff --git a/buildscripts/mutopia-index.py b/buildscripts/mutopia-index.py
index 794e59929ec1b6fac3589edf0c908ad8e277eb1d..4bbc0bb2c58416688cf728ffb058cc528d3866cd 100644 (file)
--- a/buildscripts/mutopia-index.py
+++ b/buildscripts/mutopia-index.py
@@ -152,7 +152,11 @@ def gen_list(inputs, filename):
                        if file_exist_b(filename):
                                l.write ('<li><a href="%s">%s</a>' % (filename, desc))
                                size=os.stat(filename)[stat.ST_SIZE]
-                               l.write (' (%s %dk)' % (type, (size + 512) / 1024))
+                               kB=(size + 512) / 1024
+                               if kB:
+                                       l.write (' (%s %dkB)' % (type, kB))
+                               else:
+                                       l.write (' (%s %dcharacters)' % (type, size))
                                pictures = ['jpeg', 'png', 'xpm']
                                l.write ('\n')
 

diff --git a/input/test/add-text-script.ly b/input/test/add-text-script.ly
index e3cca2fab9c1fbfd07abb9471fddf705da58c6f1..6b0effff0ea4f21a263af1b7ce84f82579e65f53 100644 (file)
--- a/input/test/add-text-script.ly
+++ b/input/test/add-text-script.ly
@@ -8,29 +8,26 @@ In general, first do a display of the music you want ot
 create, then write a function that will build the structure for you."
 } 
 
-#(define (make-script x) 
-     (let* (  (m (ly-make-music "Text_script_req"))
-     )
-     
+#(define (make-text-script x) 
+   (let ((m (ly-make-music "Text_script_req")))
      (ly-set-mus-property m 'text-type 'finger)
      (ly-set-mus-property m 'text x)
-     m
-     ))
+     m))
      
-#(define (add-script m x)
-  (if (equal? (ly-music-name m) "Request_chord")
-    (ly-set-mus-property m 'elements
-      (cons (make-script x) (ly-get-mus-property m 'elements)))
-
-    (let* ( (es (ly-get-mus-property m 'elements))
-            (e (ly-get-mus-property m 'element)) )
-     (map (lambda (y) (add-script y x)) es)
-     (if (music? e)
-       (add-script e x))
-    )
-  )
-  m
-)
+#(define (add-text-script m x)
+   (if (equal? (ly-music-name m) "Request_chord")
+       (ly-set-mus-property m 'elements
+                           (cons (make-text-script x)
+                                 (ly-get-mus-property m 'elements)))
+       
+       (let ((es (ly-get-mus-property m 'elements))
+            (e (ly-get-mus-property m 'element)) )
+        (map (lambda (y) (add-text-script y x)) es)
+        (if (music? e)
+            (add-text-script e x))))
+   m)
 
-\score {  \apply #(lambda (x) (add-script x "6") (display x) x ) \notes { c4-3 } }
+\score {
+  \apply #(lambda (x) (add-script x "6") (display x) x ) \notes { c4-3 }
+}
 

diff --git a/mutopia/E.Satie/petite-ouverture-a-danser.ly b/mutopia/E.Satie/petite-ouverture-a-danser.ly
index 9762bb376adb07a580dec1f46fc00bde6127cb07..5b213c03465244557d31c1fe6350821122284928 100644 (file)
--- a/mutopia/E.Satie/petite-ouverture-a-danser.ly
+++ b/mutopia/E.Satie/petite-ouverture-a-danser.ly
@@ -147,8 +147,6 @@ lower =  \context Staff \notes \relative c{
     >
 
   \paper {
-    textheight = 295.\mm
-    \translator{ \OrchestralScoreContext }
     \translator{
            \VoiceContext
            Slur \override #'attachment = #'(stem . stem)