texlive[66771] Master/tlpkg/tltcl/tltcl.tcl: Fix glitch in

[commits+siepo at tug.org]

Revision: 66771
          http://tug.org/svn/texlive?view=revision&revision=66771
Author:   siepo
Date:     2023-04-05 21:32:33 +0200 (Wed, 05 Apr 2023)
Log Message:
-----------
Fix glitch in translation function

Modified Paths:
--------------
    trunk/Master/tlpkg/tltcl/tltcl.tcl

Modified: trunk/Master/tlpkg/tltcl/tltcl.tcl
===================================================================
--- trunk/Master/tlpkg/tltcl/tltcl.tcl	2023-04-05 10:17:50 UTC (rev 66770)
+++ trunk/Master/tlpkg/tltcl/tltcl.tcl	2023-04-05 19:32:33 UTC (rev 66771)
@@ -278,9 +278,7 @@
 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 @@
           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]