X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Fmusic-functions.scm;h=7b0d5d0658aead0f69b1da9ad422f46647cce5a3;hb=3d316358db65e2bceccbcb31e2d700b15b9bc4a6;hp=2f3e4370919c31cbc2689b6e7f50b310deca704f;hpb=7c8d3e8943784a6352e08df7834763293c753205;p=lilypond.git

diff --git a/scm/music-functions.scm b/scm/music-functions.scm
index 2f3e437091..7b0d5d0658 100644
--- a/scm/music-functions.scm
+++ b/scm/music-functions.scm
@@ -74,6 +74,7 @@ First it recurses over the children, then the function is applied to MUSIC.
 
 (define-public (display-music music)
   "Display music, not done with music-map for clarity of presentation."
+
   (display music)
   (display ": { ")  
   (let ((es (ly:music-property music 'elements))
@@ -421,8 +422,8 @@ OTTAVATION to `8va', or whatever appropriate."
 		     (string (cdr (assoc octavation '((2 . "15ma")
 						      (1 . "8va")
 						      (0 . #f)
-						      (-1 . "8va bassa")
-						      (-2 . "15ma bassa"))))))
+						      (-1 . "8vb")
+						      (-2 . "15mb"))))))
 		(ly:context-set-property! context 'middleCPosition new-c0)
 		(ly:context-set-property! context 'originalCentralCPosition c0)
 		(ly:context-set-property! context 'ottavation string)))))
@@ -800,12 +801,15 @@ if appropriate.
 	   (list
 	    (make-sequential-music
 	     (list
-	      (context-spec-music (make-property-set 'skipTypesetting #t) 'Score)
+	      (context-spec-music (make-property-set 'skipTypesetting #t)
+				  'Score)
 	      (make-music 'SkipMusic 'duration
-			  (ly:make-duration 0 0
-					    (ly:moment-main-numerator skip-length)
-					    (ly:moment-main-denominator skip-length)))
-	      (context-spec-music (make-property-set 'skipTypesetting #f) 'Score)))
+			  (ly:make-duration
+			   0 0
+			   (ly:moment-main-numerator skip-length)
+			   (ly:moment-main-denominator skip-length)))
+	      (context-spec-music (make-property-set 'skipTypesetting #f)
+				  'Score)))
 	    music)))
 	music)))