summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorSiep Kroonenberg <siepo@cybercomm.nl>2023-04-05 19:32:33 +0000
committerSiep Kroonenberg <siepo@cybercomm.nl>2023-04-05 19:32:33 +0000
commit944ed074e2618cb3324641aa19140a17a7668821 (patch)
treef89ab323a5d965e06f348842b1ed348725e460ab
parenta8f830926a4f5e1d776e999f977e9ce1e508688c (diff)
Fix glitch in translation function
git-svn-id: svn://tug.org/texlive/trunk@66771 c570f23f-e606-0410-a88d-b1316a301751
-rw-r--r--Master/tlpkg/tltcl/tltcl.tcl5
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]