diff options
| author | Siep Kroonenberg <siepo@cybercomm.nl> | 2019-03-18 22:19:23 +0000 |
|---|---|---|
| committer | Siep Kroonenberg <siepo@cybercomm.nl> | 2019-03-18 22:19:23 +0000 |
| commit | 44560324c98207272ff5b17d2c6e7d0055a6a5e0 (patch) | |
| tree | 5f89ff5968aa12dcf87c525ebf4c1f59fd18df08 | |
| parent | 86a2fddf7f984b084b75d7aaad0451081b41ccff (diff) | |
Escapes in translation function
git-svn-id: svn://tug.org/texlive/trunk@50456 c570f23f-e606-0410-a88d-b1316a301751
| -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 "" |