diff options
author | Norbert Preining <norbert@preining.info> | 2023-04-06 03:04:06 +0000 |
---|---|---|
committer | Norbert Preining <norbert@preining.info> | 2023-04-06 03:04:06 +0000 |
commit | ecbacf9e5b13d0940f27ca7c07d3f728256dc5dc (patch) | |
tree | 37cba6b437931801da61ce98dfe781ba978da91d /systems/texlive/tlnet/tlpkg/tltcl/tltcl.tcl | |
parent | 085271aaf9917d7116be9774c6cd0a117aa4111e (diff) |
CTAN sync 202304060304
Diffstat (limited to 'systems/texlive/tlnet/tlpkg/tltcl/tltcl.tcl')
-rw-r--r-- | systems/texlive/tlnet/tlpkg/tltcl/tltcl.tcl | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/systems/texlive/tlnet/tlpkg/tltcl/tltcl.tcl b/systems/texlive/tlnet/tlpkg/tltcl/tltcl.tcl index ed5c01cdcc..b43b36e421 100644 --- a/systems/texlive/tlnet/tlpkg/tltcl/tltcl.tcl +++ b/systems/texlive/tlnet/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] |