From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Fri, 1 Dec 2006 14:48:07 +0000 (+0100)
Subject: formatting fixes.
X-Git-Tag: release/2.11.1-1~20
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=b80bd92a8e44e4e55aa6749dc1c7d5499b0a155f;p=lilypond.git

formatting fixes.
---

diff --git a/scm/music-functions.scm b/scm/music-functions.scm
index 2f3e437091..61895f0c4c 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))
@@ -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)))