charset: support start and end parameters for unicode planes

[sheet.git] / charset.plp

diff --git a/charset.plp b/charset.plp
index 82f37f95afdea03d17810bd33857d329fa95000b..05336c1e68a10086179a21382a017c29c7e3243c 100644 (file)
--- a/charset.plp
+++ b/charset.plp
@@ -274,7 +274,9 @@ sub tabinput {
                $row{set} = 'Unicode planes';
                $row{cell} = do 'charset-ucplanes.inc.pl'
                        or Alert('Table data could not be read', $@ || $!);
-               $row{endpoint} = 1023 * $row{cell}->{colsize};
+               $row{endpoint} ||= 1023;
+               $row{endpoint}   *= $row{cell}->{colsize};
+               $row{startpoint} *= $row{cell}->{colsize};
        }
        elsif (lc $input eq 'u') {
                $row{cell} = do 'charset-unicode.inc.pl'