From 4075323387ab05e509e091060a3c51cdba4f77e8 Mon Sep 17 00:00:00 2001 From: Siep Kroonenberg Date: Wed, 3 Apr 2019 16:06:28 +0000 Subject: -gui-lang synonym for -lang git-svn-id: svn://tug.org/texlive/trunk@50724 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/tltcl/tltcl.tcl | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) (limited to 'Master') 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 -- cgit v1.2.3