texlive[50456] Master/tlpkg/tltcl/tltcl.tcl: Escapes in translation

[commits+siepo at tug.org]

Revision: 50456
          http://tug.org/svn/texlive?view=revision&revision=50456
Author:   siepo
Date:     2019-03-18 23:19:23 +0100 (Mon, 18 Mar 2019)
Log Message:
-----------
Escapes in translation function

Modified Paths:
--------------
    trunk/Master/tlpkg/tltcl/tltcl.tcl

Modified: trunk/Master/tlpkg/tltcl/tltcl.tcl
===================================================================
--- trunk/Master/tlpkg/tltcl/tltcl.tcl	2019-03-18 22:18:18 UTC (rev 50455)
+++ trunk/Master/tlpkg/tltcl/tltcl.tcl	2019-03-18 22:19:23 UTC (rev 50456)
@@ -163,10 +163,12 @@
           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 ""