X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Fdefine-music-display-methods.scm;h=d884cc36c902cafee810a69300f4eaac5a752ebf;hb=7dcae7597fae14ce5c4e2e7d50c2709d162b7332;hp=2dbb0acb02200a3a516e0e023973751d012e1e5b;hpb=eaed6aa8f16502d8159530eaf3ed4d56dbf8fef8;p=lilypond.git diff --git a/scm/define-music-display-methods.scm b/scm/define-music-display-methods.scm index 2dbb0acb02..d884cc36c9 100644 --- a/scm/define-music-display-methods.scm +++ b/scm/define-music-display-methods.scm @@ -143,7 +143,7 @@ (define post-event? (make-music-type-predicate 'StringNumberEvent 'ArticulationEvent - 'FingerEvent + 'FingeringEvent 'TextScriptEvent 'MultiMeasureTextEvent 'HyphenEvent @@ -220,7 +220,7 @@ ((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 @@ -481,7 +481,7 @@ Otherwise, return #f." ;; 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)