--- ORIG_translation-functions.scm 2017-07-08 12:36:17.716097042 +0100 +++ translation-functions.scm 2017-07-09 11:34:13.248080809 +0100 @@ -184,13 +184,10 @@ way the transposition number is displaye (set! alt-markup #f))) - ;; hmm, how to get figures centered between note, and - ;; lone accidentals too? - - ;; (if (markup? fig-markup) - ;; (set! - ;; fig-markup (markup #:translate (cons 1.0 0) - ;; #:center-align fig-markup))) + (if (and (eqv? 0 (ly:duration-log (ly:event-property event 'duration))) (markup? fig-markup)) + (set! + fig-markup (markup #:translate (cons 1.0 0) + #:center-align fig-markup))) (if alt-markup (set! fig-markup