git.shiar.nl
/
sheet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
55a1d33
)
charset: support start and end parameters for unicode planes
author
Mischa POSLAWSKY
<perl@shiar.org>
Fri, 21 Apr 2017 20:37:14 +0000
(22:37 +0200)
committer
Mischa POSLAWSKY
<perl@shiar.org>
Thu, 25 May 2017 20:10:23 +0000
(22:10 +0200)
charset.plp
patch
|
blob
|
history
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{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'
}
elsif (lc $input eq 'u') {
$row{cell} = do 'charset-unicode.inc.pl'