summaryrefslogtreecommitdiff
path: root/systems/texlive/tlnet/tlpkg/tltcl/tltcl.tcl
diff options
context:
space:
mode:
authorNorbert Preining <norbert@preining.info>2023-04-06 03:04:06 +0000
committerNorbert Preining <norbert@preining.info>2023-04-06 03:04:06 +0000
commitecbacf9e5b13d0940f27ca7c07d3f728256dc5dc (patch)
tree37cba6b437931801da61ce98dfe781ba978da91d /systems/texlive/tlnet/tlpkg/tltcl/tltcl.tcl
parent085271aaf9917d7116be9774c6cd0a117aa4111e (diff)
CTAN sync 202304060304
Diffstat (limited to 'systems/texlive/tlnet/tlpkg/tltcl/tltcl.tcl')
-rw-r--r--systems/texlive/tlnet/tlpkg/tltcl/tltcl.tcl5
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]