From 44560324c98207272ff5b17d2c6e7d0055a6a5e0 Mon Sep 17 00:00:00 2001 From: Siep Kroonenberg Date: Mon, 18 Mar 2019 22:19:23 +0000 Subject: Escapes in translation function git-svn-id: svn://tug.org/texlive/trunk@50456 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/tltcl/tltcl.tcl | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) (limited to 'Master/tlpkg/tltcl') 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 "" -- cgit v1.2.3