summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tltcl
diff options
context:
space:
mode:
authorSiep Kroonenberg <siepo@cybercomm.nl>2019-04-03 16:06:28 +0000
committerSiep Kroonenberg <siepo@cybercomm.nl>2019-04-03 16:06:28 +0000
commit4075323387ab05e509e091060a3c51cdba4f77e8 (patch)
treedcf66e588127b9e08ea3c136d9e139d910438ad3 /Master/tlpkg/tltcl
parentdba1f518bb0814d2e57b859c179485105e7e957c (diff)
-gui-lang synonym for -lang
git-svn-id: svn://tug.org/texlive/trunk@50724 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/tltcl')
-rw-r--r--Master/tlpkg/tltcl/tltcl.tcl9
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