[Pingus-CVS] r3431 - trunk/pingus/data/po

[grumbel at BerliOS]

Author: grumbel
Date: 2007-10-31 06:54:54 +0100 (Wed, 31 Oct 2007)
New Revision: 3431

Modified:
   trunk/pingus/data/po/extract-levels.guile
Log:
- escape newlines properly

Modified: trunk/pingus/data/po/extract-levels.guile
===================================================================
--- trunk/pingus/data/po/extract-levels.guile   2007-10-31 05:49:02 UTC (rev 
3430)
+++ trunk/pingus/data/po/extract-levels.guile   2007-10-31 05:54:54 UTC (rev 
3431)
@@ -18,7 +18,9 @@
   '((pingus-levelset (title description))))
 
 (define (escape-string str)
-  (regexp-substitute/global #f "\"" str 'pre "\\\"" 'post))
+  (regexp-substitute/global #f "\n" 
+                            (regexp-substitute/global #f "\"" str 'pre "\\\"" 
'post)
+                            'pre "\\n" 'post))
 
 (define (print-msg sexpr props)
   (let ((str  (escape-string (apply string-append sexpr))) )