Imported sources

[lilypond.git] / scm / bass-figure.scm

diff --git a/scm/bass-figure.scm b/scm/bass-figure.scm
index b60a433eb4f2f05c08f412cae667a24ca5f960c4..9c72b95ed07977e162df4e8bf7d372433aa6be81 100644 (file)
--- a/scm/bass-figure.scm
+++ b/scm/bass-figure.scm
@@ -31,11 +31,14 @@
         (acc  (ly:get-mus-property fig-music 'alteration))
         (acc-markup #f)
         (fig-markup
-         (if (number? fig)
-             (make-number-markup (number->string fig))
-             (make-simple-markup (if align-accs " " ""))
+         (if (string? fig)
+             (make-simple-markup fig)
+             (if align-accs (make-simple-markup " ")
+                 (if (not (eq? acc '()))
+                     (make-simple-markup "")
+                     (make-strut-markup)))
              )))
-      
+
       (if (number? acc)
          (make-line-markup (list fig-markup
                                  (alteration->text-accidental-markup acc)))