*** empty log message ***

diff --git a/ChangeLog b/ChangeLog
index 2ee09f3327a5093869e6ee56f852ae3b17ee0c70..0bdf764d22d039a88020e5673bf228aa342affca 100644 (file)
--- 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 624960bef76cfd50773417ca9b8acaf881b5526a..535837c2d8fcc0bb5826e554554a09eb9659bd24 100644 (file)
--- 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 2aa410772de0b8776a8b1da86129b380af197804..12965891520a7704b1d279a75c72bb97bd487538 100644 (file)
--- 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)