From: Patrick McCarty <pnorcks@gmail.com>
Date: Sun, 7 Mar 2010 20:04:16 +0000 (-0800)
Subject: SVG backend: rename "feta-alphabet-to-path" procedure.
X-Git-Tag: release/2.13.16-1~42^2~5
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=46d8a4a682be60f88f8422693ad7cf868460ba98;p=lilypond.git

SVG backend: rename "feta-alphabet-to-path" procedure.
---

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)))))