X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=input%2Fregression%2Flily-in-scheme.ly;h=cc59cbd152beacd23438231400e1eb9831656637;hb=dd583408347dbac3d9fc8148e0b7ab040305b8af;hp=e9b34f6ec5e361abdd947ce160a5268be061994c;hpb=3bafaae8bf353619d2f97036e874f1c9cb787adf;p=lilypond.git diff --git a/input/regression/lily-in-scheme.ly b/input/regression/lily-in-scheme.ly index e9b34f6ec5..cc59cbd152 100644 --- a/input/regression/lily-in-scheme.ly +++ b/input/regression/lily-in-scheme.ly @@ -4,31 +4,31 @@ them with a @code{$}, both in a LilyPond context or in a Scheme context. -In this example, the @code{\withpaddingA}, @code{\withpaddingB} and -@code{\withpaddingC} music functions set different kinds of padding on +In this example, the @code{\\withpaddingA}, @code{\\withpaddingB} and +@code{\\withpaddingC} music functions set different kinds of padding on the @code{TextScript} grob. " } -\version "2.12.0" +\version "2.17.6" \layout { ragged-right = ##t } withPaddingA = #(define-music-function (parser location padding music) (number? ly:music?) - #{ \override TextScript #'padding = #$padding + #{ \override TextScript.padding = #padding $music - \revert TextScript #'padding #}) + \revert TextScript.padding #}) withPaddingB = #(define-music-function (parser location padding music) (number? ly:music?) - #{ \override TextScript #'padding = #$(* padding 2) + #{ \override TextScript.padding = #(* padding 2) $music - \revert TextScript #'padding #}) + \revert TextScript.padding #}) withPaddingC = #(define-music-function (parser location padding music) (number? ly:music?) - #{ \override TextScript #'padding = #(+ 1 $(* padding 2)) + #{ \override TextScript.padding = #(+ 1 (* padding 2)) $music - \revert TextScript #'padding #}) + \revert TextScript.padding #}) { c'^"1"