X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Fchord-name.scm;h=939ae7b91eebf91940af60650e9b11a96621a03a;hb=2e613f5d4d7232507698d3a717576f46920a988b;hp=c941d50bda8d2acd3cf032ad397c8d728c441c6a;hpb=ba3045ce76cd37a4e11fd775fa04ce4b7586ad77;p=lilypond.git diff --git a/scm/chord-name.scm b/scm/chord-name.scm index c941d50bda..939ae7b91e 100644 --- a/scm/chord-name.scm +++ b/scm/chord-name.scm @@ -15,6 +15,7 @@ ;; TODO: make into markup. ;; (define-public (alteration->text-accidental-markup alteration) + (make-smaller-markup (make-raise-markup (if (= alteration FLAT)