summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tltcl/tltcl.tcl
diff options
context:
space:
mode:
authorSiep Kroonenberg <siepo@cybercomm.nl>2019-03-18 22:19:23 +0000
committerSiep Kroonenberg <siepo@cybercomm.nl>2019-03-18 22:19:23 +0000
commit44560324c98207272ff5b17d2c6e7d0055a6a5e0 (patch)
tree5f89ff5968aa12dcf87c525ebf4c1f59fd18df08 /Master/tlpkg/tltcl/tltcl.tcl
parent86a2fddf7f984b084b75d7aaad0451081b41ccff (diff)
Escapes in translation function
git-svn-id: svn://tug.org/texlive/trunk@50456 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/tltcl/tltcl.tcl')
-rw-r--r--Master/tlpkg/tltcl/tltcl.tcl10
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 ""