texlive[52390] Master/texmf-dist/scripts/tlshell/tlshell.tcl: A4 =>

[commits+siepo at tug.org]

Revision: 52390
          http://tug.org/svn/texlive?view=revision&revision=52390
Author:   siepo
Date:     2019-10-15 20:30:20 +0200 (Tue, 15 Oct 2019)
Log Message:
-----------
A4 => a4

Modified Paths:
--------------
    trunk/Master/texmf-dist/scripts/tlshell/tlshell.tcl

Modified: trunk/Master/texmf-dist/scripts/tlshell/tlshell.tcl
===================================================================
--- trunk/Master/texmf-dist/scripts/tlshell/tlshell.tcl	2019-10-15 12:59:44 UTC (rev 52389)
+++ trunk/Master/texmf-dist/scripts/tlshell/tlshell.tcl	2019-10-15 18:30:20 UTC (rev 52390)
@@ -2105,7 +2105,8 @@
   incr inx
   menu .mn.opt.paper
   foreach p [list A4 letter] {
-    .mn.opt.paper add command -label $p -command "set_paper $p"
+    .mn.opt.paper add command -label $p -command \
+        "set_paper [string tolower $p]"
   }
 
   if {[llength $::langs] > 1} {