From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Wed, 31 Mar 2004 23:08:15 +0000 (+0000)
Subject: *** empty log message ***
X-Git-Tag: release/2.2.0~8
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=8c824fa8765cfec76910203b760025465e2612a2;p=lilypond.git

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

diff --git a/ChangeLog b/ChangeLog
index 2ee09f3327..0bdf764d22 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2004-04-01  Han-Wen Nienhuys   <hanwen@xs4all.nl>
+
+	* input/test/cadenza-skip.ly:  new file.
+
 2004-03-31  Jan Nieuwenhuizen  <janneke@gnu.org>
 
 	* po/nl.po: Spelling fixes.
diff --git a/input/regression/music-map.ly b/input/regression/music-map.ly
index 624960bef7..535837c2d8 100644
--- a/input/regression/music-map.ly
+++ b/input/regression/music-map.ly
@@ -17,7 +17,7 @@ dynamics are left over. These are put onto the 2nd measure."
 Scripts and dynamics are maintained.
 "
   (if (memq 'rhythmic-event (ly:music-property m 'types))
-	(let* ((newmus 	  (make-music 'SkipEvent)))
+	(let* ((newmus (make-music 'SkipEvent)))
 		(map
 		  (lambda (x) (ly:music-set-property! newmus (car x) (cdr x)))
 		  (ly:music-mutable-properties m))
diff --git a/scm/music-functions.scm b/scm/music-functions.scm
index 2aa410772d..1296589152 100644
--- a/scm/music-functions.scm
+++ b/scm/music-functions.scm
@@ -258,6 +258,7 @@ i.e.  this is not an override"
 (define-public (make-skip-music dur)
   (make-music 'SkipMusic
 	      'duration dur))
+
 (define-public (make-grace-music music)
   (make-music 'GraceMusic
 	      'element music))
@@ -280,7 +281,7 @@ i.e.  this is not an override"
   "Check if we have R1*4-\\markup { .. }, and if applicable convert to
 a property set for MultiMeasureRestNumber."
   (define (script-to-mmrest-text script-music)
-    "Extract 'direction and 'text   from SCRIPT-MUSIC, and transform into property sets."
+    "Extract 'direction and 'text from SCRIPT-MUSIC, and transform into property sets."
     (let ((dir (ly:music-property script-music 'direction))
 	  (p   (make-music 'MultiMeasureTextEvent
 			   'text (ly:music-property script-music 'text))))
@@ -334,8 +335,8 @@ OTTAVATION to `8va', or whatever appropriate."
   (ly:export (make-ottava-set ottavation)))
 
 (define-public (make-time-signature-set num den . rest)
-  " Set properties for time signature NUM/DEN.
-Rest can contain a list of beat groupings "
+  "Set properties for time signature NUM/DEN.  Rest can contain a list
+of beat groupings "
   (let* ((set1 (make-property-set 'timeSignatureFraction (cons num den)))
 	 (beat (ly:make-moment 1 den))
 	 (len  (ly:make-moment num den))
@@ -349,7 +350,7 @@ Rest can contain a list of beat groupings "
      (context-spec-music (make-sequential-music basic) 'Timing) 'Score)))
 
 (define-public (make-mark-set label)
-  "make the music for the \\mark command."  
+  "Make the music for the \\mark command."  
   (let* ((set (if (integer? label)
 		  (context-spec-music (make-property-set 'rehearsalMark label)
 				      'Score)