-gui-lang synonym for -lang

git-svn-id: svn://tug.org/texlive/trunk@50724 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 8 insertions, 1 deletions

diff --git a/Master/tlpkg/tltcl/tltcl.tcl b/Master/tlpkg/tltcl/tltcl.tcl
index 4296cdc44d0..c7e4fedb481 100644
--- a/Master/tlpkg/tltcl/tltcl.tcl
+++ b/Master/tlpkg/tltcl/tltcl.tcl
@@ -69,7 +69,8 @@ proc load_translations {} {
   while {$i < $::argc} {
     set p [lindex $::argv $i]
     incr i
-    if {$p eq "-lang" || $p eq "--lang"} {
+    if {$p eq "-lang" || $p eq "--lang" || $p eq "-gui-lang" || \
+            $p eq "--gui-lang"} {
       if {$i < $::argc} {
         set ::lang [lindex $::argv $i]
         break
@@ -80,6 +81,12 @@ proc load_translations {} {
     } elseif {[string range $p 0 6] eq "--lang="} {
       set ::lang [string range $p 7 end]
       break
+    } elseif {[string range $p 0 9] eq "-gui-lang="} {
+      set ::lang [string range $p 10 end]
+      break
+    } elseif {[string range $p 0 11] eq "--gui-lang="} {
+      set ::lang [string range $p 12 end]
+      break
     }
   }
   unset i