* scm/output-svg.scm:

[lilypond.git] / scm / output-gnome.scm

diff --git a/scm/output-gnome.scm b/scm/output-gnome.scm
index 15fdff495fb4b9d8dff4bfd03dc46b5360dfde62..2251f26ca13b5eed29c1789dfea3c52e67c9777b 100644 (file)
--- a/scm/output-gnome.scm
+++ b/scm/output-gnome.scm
@@ -136,15 +136,15 @@ lilypond -fgnome input/simple-song.ly
   (let ((encoding (ly:font-encoding font))
        (family (font-family font)))
     (or (memq encoding '(fetaMusic fetaBraces))
-       (string=? (substring family 0 (min (string-length family) 9))
-                 "bigcheese"))))
+       (string=? (substring family 0 (min (string-length family) 10))
+                 "emmentaler"))))
 
 ;; FIXME
 (define-public (otf-name-mangling font family)
-  ;; Hmm, family is bigcheese20/26?
-  (if (string=? (substring family 0 (min (string-length family) 9))
-               "bigcheese")
-      (string-append "LilyPond " (substring family 9))
+  ;; Hmm, family is emmentaler20/26?
+  (if (string=? (substring family 0 (min (string-length family) 10))
+               "emmentaler")
+      (string-append "LilyPond " (substring family 10))
       (if (string=? family "aybabtu")
          "LilyPondBraces"
          family)))