X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=ly%2Fdeclarations-init.ly;h=5a322c2af7ac54496015b5da27c8dd9eb40b2278;hb=9f3572d98bb948c9689cd1f75401a029451fa001;hp=d62be483706593b0f17fb7925ecf1a0cc39be56d;hpb=04265f11d1f21416ccebd2dcaa1d903dc781b36e;p=lilypond.git

diff --git a/ly/declarations-init.ly b/ly/declarations-init.ly
index d62be48370..5a322c2af7 100644
--- a/ly/declarations-init.ly
+++ b/ly/declarations-init.ly
@@ -46,7 +46,6 @@ pageTurn = #(make-event-chord (list
 				(make-music 'PageBreakEvent 'break-permission 'force)
 				(make-music 'PageTurnEvent 'break-permission 'force)))
 noPageTurn = #(make-event-chord (list (make-music 'PageTurnEvent 'break-permission '())))
-allowPageTurn = #(make-event-chord (list (make-music 'PageTurnEvent 'break-permission 'allow)))
 
 stopStaff = #(make-event-chord (list (make-span-event 'StaffSpanEvent STOP)))
 startStaff = #(make-event-chord (list (make-span-event 'StaffSpanEvent START)))
@@ -72,9 +71,8 @@ escapedSmallerSymbol = #(make-span-event 'CrescendoEvent START)
 
 \include "scale-definitions-init.ly"
 
-melisma = #(context-spec-music (make-property-set 'melismaBusy #t) 'Bottom)
-melismaEnd = #(context-spec-music (make-property-unset 'melismaBusy) 'Bottom)
-
+melisma = #(make-span-event 'ManualMelismaEvent START)
+melismaEnd = #(make-span-event 'ManualMelismaEvent STOP)
 laissezVibrer = #(make-music 'LaissezVibrerEvent)
 repeatTie = #(make-music 'RepeatTieEvent)
 		  
@@ -109,8 +107,7 @@ partCombineListener = \layout {
     \context {
 	\Score
 	skipTypesetting = ##t
-	ignoreBarChecks = ##t
-	\alias "Timing"
+	ignoreBarChecks = ##t 
     }
 }