X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Foutput-texstr.scm;h=81303dc0cace8d595283b9e45050266113e74e93;hb=33d540bc66cc30e199291fb42b5096ab5dd6c086;hp=7b285cf2baef1b1f9d56092d4de4194f086c2d9b;hpb=60a74756b1d3753b75ce535d08893846af145ec5;p=lilypond.git diff --git a/scm/output-texstr.scm b/scm/output-texstr.scm index 7b285cf2ba..81303dc0ca 100644 --- a/scm/output-texstr.scm +++ b/scm/output-texstr.scm @@ -2,7 +2,7 @@ ;;;; ;;;; source file of the GNU LilyPond music typesetter ;;;; -;;;; (c) 2004 Han-Wen Nienhuys +;;;; (c) 2004--2006 Han-Wen Nienhuys (define-module (scm output-texstr)) (define this-module (current-module)) @@ -26,6 +26,8 @@ (if (string? what) what "")) + + (define-public (text font str) (call-with-output-string (lambda (port)