charset: double width unicode planes

[sheet.git] / charset.plp

diff --git a/charset.plp b/charset.plp
index 33eb679b9bf3f39f3575c598e35d88aac351db8a..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;
+                       $cols *= 2;
                }
                elsif ($row{set} = Encode::resolve_alias($input)) {
                        if ($row{set} eq 'Internal') {
@@ -173,10 +174,6 @@ for my $row (@request) {
                for my $lsb (0 .. $cols - 1) {
                        my $val = ( ($msb * $cols) + $lsb ) * $colsize;
                        if ($row->{cell}) {
-                               if (ref $row->{cell} eq 'CODE') {
-                                       print $row->{cell}->($val);
-                                       next;
-                               }
                                print range_cell($row->{cell}, $val);
                                next;
                        }