X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Fchord-name.scm;h=718a3c9e3b35cc3cd99bbc1f9de4bf5116ab474f;hb=a8bf97b6b7f724102ecef1d220c71f090bc45657;hp=33f82c95018c7324839f72d2efb2aedaea673e27;hpb=a8c9b0b94722bcc493ecd121a6efddec6e5d879d;p=lilypond.git

diff --git a/scm/chord-name.scm b/scm/chord-name.scm
index 33f82c9501..718a3c9e3b 100644
--- a/scm/chord-name.scm
+++ b/scm/chord-name.scm
@@ -2,7 +2,7 @@
 ;;;;
 ;;;; source file of the GNU LilyPond music typesetter
 ;;;; 
-;;;; (c) 2000--2006 Jan Nieuwenhuizen <janneke@gnu.org>
+;;;; (c) 2000--2009 Jan Nieuwenhuizen <janneke@gnu.org>
 ;;;;                 Han-Wen Nienhuys <hanwen@xs4all.nl>
 
 (define (natural-chord-alteration p)
@@ -15,14 +15,14 @@
 ;; TODO: make into markup.
 ;; 
 (define-public (alteration->text-accidental-markup alteration)
+  
   (make-smaller-markup
    (make-raise-markup
     (if (= alteration FLAT)
 	0.3
 	0.6)
     (make-musicglyph-markup
-     (format "accidentals.~a"
-	     (inexact->exact (* 4 alteration)))))))
+     (assoc-get alteration standard-alteration-glyph-name-alist "")))))
   
 (define (accidental->markup alteration)
   "Return accidental markup for ALTERATION."