Merge branch 'master' of ssh+git://hanwen@git.sv.gnu.org/srv/git/lilypond

[lilypond.git] / scm / define-music-types.scm

diff --git a/scm/define-music-types.scm b/scm/define-music-types.scm
index a57b187e30c277d4a03b900e3b7d2d96b73ab1bb..a6e1cbe178a4e2f7077bcd49f3eba5b198a52a80 100644 (file)
--- 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--2007 Han-Wen Nienhuys <hanwen@xs4all.nl>
 ;;;;                Jan Nieuwenhuizen <janneke@gnu.org>
 
 ;; TODO: should link back into user manual.
@@ -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))
@@ -693,8 +685,7 @@ 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