charset: double width unicode planes

diff --git a/charset.plp b/charset.plp
index ff5419f9d904f0f127bda044dbde01305fc9e25a..9bdf363755462c1a679d816f14d3795a3e59a834 100644 (file)
--- a/charset.plp
+++ b/charset.plp
@@ -68,6 +68,7 @@ my @request = map {
                        $row{cell} = do 'charset-ucplanes.inc.pl'
                                or Alert('Table data could not be read', $@ || $!);
                        $colsize = 8;
                        $row{cell} = do 'charset-ucplanes.inc.pl'
                                or Alert('Table data could not be read', $@ || $!);
                        $colsize = 8;

+                       $cols *= 2;

                }
                elsif ($row{set} = Encode::resolve_alias($input)) {
                        if ($row{set} eq 'Internal') {
                }
                elsif ($row{set} = Encode::resolve_alias($input)) {
                        if ($row{set} eq 'Internal') {