X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;ds=sidebyside;f=scm%2Foutput-svg.scm;h=57c5e733a0b63cd9e8e6b0dd0459cd925280b26b;hb=03830580c2316c1b0ecee9cd95cfe1d1090e7820;hp=a5a108a964aabad086292aafccffe97fe2ba30a6;hpb=bc95f4434f760d41191341ab4508b2064eb19025;p=lilypond.git

diff --git a/scm/output-svg.scm b/scm/output-svg.scm
index a5a108a964..57c5e733a0 100644
--- a/scm/output-svg.scm
+++ b/scm/output-svg.scm
@@ -266,7 +266,7 @@
 	(extract-glyph all-glyphs glyph size))))
 
 
-(define (feta-alphabet-to-path font size glyph)
+(define (music-string-to-path font size glyph)
   (let* ((name-style (font-name-style font))
 	 (scaled-size (/ size lily-unit-length))
 	 (font-file (ly:find-file (string-append name-style ".svg"))))
@@ -355,13 +355,13 @@
 (define (glyph-string font size cid glyphs)
   (define path "")
   (if (= 1 (length glyphs))
-      (set! path (feta-alphabet-to-path font size (car glyphs)))
+      (set! path (music-string-to-path font size (car glyphs)))
       (begin
 	(set! path
 	      (string-append (eo 'g)
 			     (string-join
 			       (map (lambda (x)
-				      (feta-alphabet-to-path font size x))
+				      (music-string-to-path font size x))
 				    glyphs)
 			       "\n")
 			     (ec 'g)))))