diff options
Diffstat (limited to 'Master')
| -rwxr-xr-x | Master/texmf-dist/scripts/tlshell/tlshell.tcl | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/Master/texmf-dist/scripts/tlshell/tlshell.tcl b/Master/texmf-dist/scripts/tlshell/tlshell.tcl index c34147b4d8e..66752b67cd9 100755 --- a/Master/texmf-dist/scripts/tlshell/tlshell.tcl +++ b/Master/texmf-dist/scripts/tlshell/tlshell.tcl @@ -2105,7 +2105,8 @@ proc populate_main {} { 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} { |