X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Fdefine-music-types.scm;h=c421eefdf58690f562e9765d58e686441123e4df;hb=f9214bac21e9926dc3248416f58190c98c4167a9;hp=99036e4ed49f9c0fea41f5e0878a51bad20a3187;hpb=b53ca26b6a62e30c75b758d17bcdab530cba1e2b;p=lilypond.git

diff --git a/scm/define-music-types.scm b/scm/define-music-types.scm
index 99036e4ed4..c421eefdf5 100644
--- a/scm/define-music-types.scm
+++ b/scm/define-music-types.scm
@@ -283,14 +283,6 @@ e.g. @code{\\mark \"A\"}.")
 
 	(types . (general-music mark-event event))
 	))
-    (ManualMelismaEvent
-     . (
-	(description .	"Start or stop a melisma.
-
-Syntax: @code{c4\\melisma d\\melismaEnd}.")
-	(types . (general-music melisma-span-event event))
-	))
-
     (MultiMeasureRestMusic
      . (
 	(description . "Rests that may be compressed into Multi rests. 
@@ -387,7 +379,7 @@ Syntax: @code{\\property @var{context}.@var{prop} = @var{scheme-val}}.")
     (PercentEvent
      . (
 	(description .	"Used internally to signal percent repeats.")
-	(types . (general-music event percent-event))
+	(types . (general-music event percent-event rhythmic-event))
 	))
 
     (PesOrFlexaEvent
@@ -751,7 +743,7 @@ and values. E.g:
       (ly:error (_ "symbol expected: ~S") name))
   (let ((props (hashq-ref music-name-to-property-table name '())))
     (if (not (pair? props))
-	(ly:error (_ "can't find music object: ~S") name))
+	(ly:error (_ "cannot find music object: ~S") name))
     (let ((m (ly:make-music props)))
       (define (set-props mus-props)
 	(if (and (not (null? mus-props))