diff options
author | Siep Kroonenberg <siepo@cybercomm.nl> | 2023-04-05 19:32:33 +0000 |
---|---|---|
committer | Siep Kroonenberg <siepo@cybercomm.nl> | 2023-04-05 19:32:33 +0000 |
commit | 944ed074e2618cb3324641aa19140a17a7668821 (patch) | |
tree | f89ab323a5d965e06f348842b1ed348725e460ab /Master | |
parent | a8f830926a4f5e1d776e999f977e9ce1e508688c (diff) |
Fix glitch in translation function
git-svn-id: svn://tug.org/texlive/trunk@66771 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master')
-rw-r--r-- | Master/tlpkg/tltcl/tltcl.tcl | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/Master/tlpkg/tltcl/tltcl.tcl b/Master/tlpkg/tltcl/tltcl.tcl index ed5c01cdcc7..b43b36e421b 100644 --- a/Master/tlpkg/tltcl/tltcl.tcl +++ b/Master/tlpkg/tltcl/tltcl.tcl @@ -278,9 +278,7 @@ proc initialize_language {} { initialize_language proc load_translations {} { - foreach s [array names ::TRANS] { - array unset ::TRANS $s - } + array unset ::TRANS if {$::lang eq ""} return set messcat [file join $::instroot "tlpkg" "translations" "${::lang}.po"] # parse messcat. @@ -314,6 +312,7 @@ proc load_translations {} { if $inmsgstr { # empty line signals end of msgstr if {$msgstr ne ""} { + # unescape some characters set msgid [string map {{\n} "\n"} $msgid] set msgstr [string map {{\n} "\n"} $msgstr] set msgid [string map {{\\} "\\"} $msgid] |