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))) ) _______________________________________________ pingus-cvs mailing list [email protected] http://lists.nongnu.org/mailman/listinfo/pingus-cvs
