Index: scm/translation-functions.scm |
diff --git a/scm/translation-functions.scm b/scm/translation-functions.scm |
index 0ed0deff0a24817edc4f53b42fb902313f0e75bc..cd78d83845e4cb356a7f3fc8d27d81976b01e1ea 100644 |
--- a/scm/translation-functions.scm |
+++ b/scm/translation-functions.scm |
@@ -184,13 +184,10 @@ way the transposition number is displayed." |
(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 (>= 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 |