\version "2.14.2"
#(define (padding-for-tenuto x)
(lambda (grob)
(if (equal? "tenuto" (ly:prob-property (assoc-ref (ly:grob-properties grob) 'cause) 'articulation-type))
(ly:grob-set-property! grob 'padding x)
'())))
#(define (custom-articulation-padding type x)
(lambda (grob)
(if (equal? type (ly:prob-property (assoc-ref (ly:grob-properties grob) 'cause) 'articulation-type))
(ly:grob-set-property! grob 'padding x)
'())))
\relative c'' {
\once \override Script #'after-line-breaking = #(padding-for-tenuto 0.75)
f1--
f1--
\override Script #'after-line-breaking = #(custom-articulation-padding "accent" 1)
f->
f->
\revert Script #'after-line-breaking
f->
}