]> git.donarmstrong.com Git - lilypond.git/commitdiff
*** empty log message ***
authorJan Nieuwenhuizen <janneke@gnu.org>
Wed, 2 Mar 2005 08:33:07 +0000 (08:33 +0000)
committerJan Nieuwenhuizen <janneke@gnu.org>
Wed, 2 Mar 2005 08:33:07 +0000 (08:33 +0000)
scm/output-gnome.scm

index 0c0c0ce80dcc4aa369dac8d6f4f19a7d90de1941..df46b48b61a780eb4b61b06c181e0df26bd30763 100644 (file)
@@ -146,6 +146,7 @@ lilypond -fgnome input/simple-song.ly
 
 (define (pango-font-name font)
   (debugf "FONT-NAME:~S:~S\n" (ly:font-name font) (ly:font-design-size font))
+  (debugf (apply format (append '(#f "PANGO-NAME:~a, ~a\n") (font-name-style font))))
   (apply format (append '(#f "~a, ~a") (font-name-style font))))
 
 (define (pango-font-size font)