X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Fdefine-music-types.scm;h=c454cfd3a61a07b1ae33dea76393f3237cf3f15c;hb=b5cd9b70a0c936051e93b3e9a0ca9f03d2960714;hp=a57b187e30c277d4a03b900e3b7d2d96b73ab1bb;hpb=bd4204d50882e21d823bbd39c06642e8e0e421c5;p=lilypond.git

diff --git a/scm/define-music-types.scm b/scm/define-music-types.scm
index a57b187e30..c454cfd3a6 100644
--- a/scm/define-music-types.scm
+++ b/scm/define-music-types.scm
@@ -2,7 +2,7 @@
 ;;;;
 ;;;;  source file of the GNU LilyPond music typesetter
 ;;;;
-;;;; (c) 1998--2006 Han-Wen Nienhuys <hanwen@xs4all.nl>
+;;;; (c) 1998--2009 Han-Wen Nienhuys <hanwen@xs4all.nl>
 ;;;;		     Jan Nieuwenhuizen <janneke@gnu.org>
 
 ;; TODO: should link back into user manual.
@@ -71,7 +71,7 @@ Syntax: @var{note}@code{x}@code{y}, where @code{x} is a direction
 (@code{^} for up or @code{_} for down), or LilyPond's choice
 (no direction specified)), and where @code{y} is an articulation
 (such as @code{-.}, @code{->}, @code{\\tenuto}, @code{\\downbow}).
-See the user manual for details.")
+See the Notation Reference for details.")
 	(types . (general-music event articulation-event script-event))
 	))
 
@@ -150,7 +150,7 @@ specific context.")
 Syntax: @var{note}@code{\\cr} @dots{} @var{note}@code{\\rc}
 
 You can also use @code{\\<}, @code{\\!}, @code{\\cresc}, and
-@code{\\endcresc}.  See the user manual for details.")
+@code{\\endcresc}.  See the Notation Reference for details.")
 	(types . (general-music span-event span-dynamic-event crescendo-event
 		  event))
 	))
@@ -185,14 +185,6 @@ You can also use @code{\\<}, @code{\\!}, @code{\\cresc}, and
 	(types . (general-music fingering-event event))
 	))
 
-    (FoldedRepeatedMusic
-     . ((description . "Repeats with alternatives placed in parallel.")
-	(iterator-ctor . ,ly:folded-repeat-iterator::constructor)
-	(start-callback .  ,ly:repeated-music::minimum-start)
-	(length-callback . ,ly:repeated-music::folded-music-length)
-	(types . (general-music repeated-music folded-repeated-music))
-	))
-
     (GlissandoEvent
      . ((description . "Start a glissando on this note.")
 	(types . (general-music glissando-event event))
@@ -668,7 +660,7 @@ Syntax: @code{\\\\}")
 
 (define-safe-public (make-music name . music-properties)
   "Create a music object of given name, and set its properties
-according to @code{music-properties}, a list of alterning property symbols
+according to @code{music-properties}, a list of alternating property symbols
 and values. E.g:
   (make-music 'OverrideProperty
 	      'symbol 'Stem
@@ -693,12 +685,11 @@ and values. E.g:
   (let* ((handle (assoc name '(("volta" . VoltaRepeatedMusic)
 			       ("unfold" . UnfoldedRepeatedMusic)
 			       ("percent" . PercentRepeatedMusic)
-			       ("tremolo" . TremoloRepeatedMusic)
-			       ("fold" . FoldedRepeatedMusic))))
+			       ("tremolo" . TremoloRepeatedMusic))))
 	 (music-name (if (pair? handle)
 			 (cdr handle)
 			 (begin
 			   (ly:warning (_ "unknown repeat type `~S'") name)
-			   (ly:warning (_ "See music-types.scm for supported repeats"))
+			   (ly:warning (_ "See define-music-types.scm for supported repeats"))
 			   'VoltaRepeatedMusic))))
     (make-music music-name)))