diff options
Diffstat (limited to 'Master/tlpkg')
-rw-r--r-- | Master/tlpkg/tltcl/tltcl.tcl | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/Master/tlpkg/tltcl/tltcl.tcl b/Master/tlpkg/tltcl/tltcl.tcl index ade003b597b..58edf8c6433 100644 --- a/Master/tlpkg/tltcl/tltcl.tcl +++ b/Master/tlpkg/tltcl/tltcl.tcl @@ -163,10 +163,12 @@ proc load_translations {} { if $inmsgstr { # empty line signals end of msgstr if {$msgstr ne ""} { - set msgid [string map {"\\n" "\n"} $msgid] - set msgstr [string map {"\\n" "\n"} $msgstr] - set msgid [string map {"\\\\" "\\"} $msgid] - set msgstr [string map {"\\\\" "\\"} $msgstr] + set msgid [string map {{\n} "\n"} $msgid] + set msgstr [string map {{\n} "\n"} $msgstr] + set msgid [string map {{\\} "\\"} $msgid] + set msgstr [string map {{\\} "\\"} $msgstr] + set msgid [string map {{\"} "\""} $msgid] + set msgstr [string map {{\"} "\""} $msgstr] set ::TRANS($msgid) $msgstr } set msgid "" |