charset: support start and end parameters for unicode planes
authorMischa POSLAWSKY <perl@shiar.org>
Fri, 21 Apr 2017 20:37:14 +0000 (22:37 +0200)
committerMischa POSLAWSKY <perl@shiar.org>
Thu, 25 May 2017 20:10:23 +0000 (22:10 +0200)
charset.plp

index 82f37f9..05336c1 100644 (file)
@@ -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'