X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Fchord-name.scm;h=4dd959bb5b47163e4b2c49bc85fe8bc3708343a5;hb=1d3beed53413315ec6c0553b003b8c5776f8c38f;hp=54faaa5ba7b2e157d118cfb14c2ec43727f90b4d;hpb=1b554886980bc48aed1ef4025f28292c694b4c55;p=lilypond.git

diff --git a/scm/chord-name.scm b/scm/chord-name.scm
index 54faaa5ba7..4dd959bb5b 100644
--- a/scm/chord-name.scm
+++ b/scm/chord-name.scm
@@ -106,7 +106,7 @@
            (list-ref '( "ses" "s" "" "is" "isis") (+ 2 (cdr n-a)))
            (list-ref '("eses" "es" "" "is" "isis") (+ 2 (cdr n-a)))))))))
 
-(define-public ((chord-name->italian-markup re-with-eacute) pitch lowercase?)
+(define ((chord-name->italian-markup re-with-eacute) pitch lowercase?)
   "Return pitch markup for @var{pitch}, using Italian/@/French note names.
 If @var{re-with-eacute} is set to @code{#t}, french `ré' is returned for
 pitch@tie{}D instead of `re'."
@@ -125,6 +125,7 @@ pitch@tie{}D instead of `re'."
         lowercase?))
       (accidental->markup-italian alt)
       ))))
+(export chord-name->italian-markup)
 
 ;; fixme we should standardize on omit-root (or the other one.)
 ;; perhaps the default should also be reversed --hwn