texlive[50724] Master/tlpkg/tltcl/tltcl.tcl: -gui-lang synonym for

commits+siepo at tug.org commits+siepo at tug.org
Wed Apr 3 18:06:28 CEST 2019


Revision: 50724
          http://tug.org/svn/texlive?view=revision&revision=50724
Author:   siepo
Date:     2019-04-03 18:06:28 +0200 (Wed, 03 Apr 2019)
Log Message:
-----------
-gui-lang synonym for -lang

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

Modified: trunk/Master/tlpkg/tltcl/tltcl.tcl
===================================================================
--- trunk/Master/tlpkg/tltcl/tltcl.tcl	2019-04-03 16:04:15 UTC (rev 50723)
+++ trunk/Master/tlpkg/tltcl/tltcl.tcl	2019-04-03 16:06:28 UTC (rev 50724)
@@ -69,7 +69,8 @@
   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 @@
     } 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



More information about the tex-live-commits mailing list