(note-name->markup): don't superscript root

[lilypond.git] / scm / chord-name.scm

diff --git a/scm/chord-name.scm b/scm/chord-name.scm
index 790f20c88209b5b6ebcf6a52d78f955e9985fa08..3e5c9f0ea7c908da8f5d5b8a09e0288e7574a474 100644 (file)
--- a/scm/chord-name.scm
+++ b/scm/chord-name.scm
@@ -39,8 +39,7 @@
    (list
     (make-simple-markup
      (vector-ref #("C" "D" "E" "F" "G" "A" "B") (ly:pitch-notename pitch)))
-    (make-normal-size-super-markup
-     (accidental->markup (ly:pitch-alteration pitch))))))
+     (accidental->markup (ly:pitch-alteration pitch)))))
 
 
 (define-public ((chord-name->german-markup B-instead-of-Bb) pitch)