git.shiar.nl
/
sheet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
digraphs: mkdigraphlist: redetermine source class
[sheet.git]
/
digraphs.plp
diff --git
a/digraphs.plp
b/digraphs.plp
index 3073f9a4d1b0487539b3dbb187b1e788e22747ca..18123a61e127c8640681152c3ad25231f78f4eb0 100644
(file)
--- a/
digraphs.plp
+++ b/
digraphs.plp
@@
-66,7
+66,7
@@
for my $c1group (@chars) {
my @class = ('X', grep {$_} $prop, $script);
$glyph = EscapeHTML($glyph);
my @class = ('X', grep {$_} $prop, $script);
$glyph = EscapeHTML($glyph);
- $glyph = "<span>$glyph</span>" if $
prop
=~ /\bZs\b/;
+ $glyph = "<span>$glyph</span>" if $
script
=~ /\bZs\b/;
printf "\n".'<td class="%s" title="%s">%s',
join(' ', @class), EscapeHTML($desc), $glyph;
printf "\n".'<td class="%s" title="%s">%s',
join(' ', @class), EscapeHTML($desc), $glyph;
@@
-81,9
+81,9
@@
print '<hr>' if exists $get{split};
<div class="legend">
<table class="glyphs"><tr>
<td class="X Cc">control
<div class="legend">
<table class="glyphs"><tr>
<td class="X Cc">control
- <td class="X Zs"><span>spac
ing
</span>
- <td class="X Mn">
modifier
- <td class="X Sk">spacing
modifier
+ <td class="X Zs"><span>spac
e
</span>
+ <td class="X Mn">
combining
+ <td class="X Sk">spacing
modifier
<td class="X Pf">quote
<td class="X Po">punctuation
<td class="X So">symbol
<td class="X Pf">quote
<td class="X Po">punctuation
<td class="X So">symbol