(define post-event? (make-music-type-predicate
'StringNumberEvent
'ArticulationEvent
- 'FingerEvent
+ 'FingeringEvent
'TextScriptEvent
'MultiMeasureTextEvent
'HyphenEvent
((portato) "_")
(else (format #f "\\~a" articulation)))))
-(define-post-event-display-method FingerEvent (event) #t
+(define-post-event-display-method FingeringEvent (event) #t
(ly:music-property event 'digit))
(define-post-event-display-method TextScriptEvent (event) #t
;; command_element
(format #f "~{~a ~}" (map-in-order music->lily-string elements))))))))
-(define-display-method MultiMeasureRest (mmrest)
+(define-display-method MultiMeasureRestMusic (mmrest)
(let* ((dur (ly:music-property mmrest 'duration))
(ly (format #f "R~a~{~a ~}"
(duration->lily-string dur)