* lily/include/event.hh: remove file.

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

diff --git a/scm/output-socket.scm b/scm/output-socket.scm
index 17967425a16aa4874c81ac8055250653b636955a..ddecbd0712f70458a0214de7271c5a2d9a50edd4 100644 (file)
--- a/scm/output-socket.scm
+++ b/scm/output-socket.scm
@@ -95,14 +95,19 @@
          )))
 
 
+(define (escape-string str)
+  (string-regexp-substitute
+   " " "\\040" 
+   (string-regexp-substitute "\"" "\\\"" str)))
+  
 (define-public (utf-8-string
                descr
                string)
   
-  (format "utf-8 \"~a\" \"~a\"" descr
+  (format "utf-8 \"~a\" \"~a\""
+         (escape-string descr)
 
          ;; don't want unescaped spaces.
-         (string-regexp-substitute " " "\\040" 
-                                   (string-regexp-substitute "\"" "\\\"" string))
+         (escape-string string)
          ))