From: Mischa POSLAWSKY <perl@shiar.org>
Date: Fri, 21 Apr 2017 20:37:14 +0000 (+0200)
Subject: charset: support start and end parameters for unicode planes
X-Git-Tag: v1.10~106
X-Git-Url: http://git.shiar.nl/sheet.git/commitdiff_plain/b1db17617e16cb9468808f7e2aea0ad8c96c166e

charset: support start and end parameters for unicode planes
---

diff --git a/charset.plp b/charset.plp
index 82f37f9..05336c1 100644
--- 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'