X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Foutput-texstr.scm;h=81303dc0cace8d595283b9e45050266113e74e93;hb=af770f3440264c18ce01525dce1aa76b86ace0d5;hp=c10d9bf97f1a44c4332726221d71044a3169278b;hpb=e3a368ad1c8dc7a06491ffc4305d68d8d6e8305e;p=lilypond.git

diff --git a/scm/output-texstr.scm b/scm/output-texstr.scm
index c10d9bf97f..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 <hanwen@cs.uu.nl>
+;;;; (c) 2004--2006 Han-Wen Nienhuys <hanwen@xs4all.nl>
 
 (define-module (scm output-texstr))
 (define this-module (current-module))
@@ -11,6 +11,7 @@
  (guile)
  (ice-9 regex)
  (srfi srfi-13)
+ (scm framework-tex)
  (lily))
 
 (define (dummy . foo) #f)
@@ -25,6 +26,8 @@
   (if (string? what)
       what
       ""))
+
+
 (define-public (text font str)
   (call-with-output-string
    (lambda (port)
@@ -33,5 +36,6 @@
 		      (hash str TEX_STRING_HASHLIMIT)
 		    (ly:font-file-name font)
 		    (ly:font-file-name font)
-		    str) port)
+		    (sanitize-tex-string str))
+	      port)
      )))