X-Git-Url: http://git.shiar.net/sheet.git/blobdiff_plain/17e692e15f94c64b89ec740856aa0b42087a675b..44e16a2ff933556dd5db83bdbf2315d61ce0640f:/Shiar_Sheet/KeyboardChars.pm

diff --git a/Shiar_Sheet/KeyboardChars.pm b/Shiar_Sheet/KeyboardChars.pm
index 6afd7dc..77be120 100644
--- a/Shiar_Sheet/KeyboardChars.pm
+++ b/Shiar_Sheet/KeyboardChars.pm
@@ -8,7 +8,7 @@ use Unicode::Normalize qw( NFKD );
 use Text::Unidecode qw( unidecode );
 use Shiar_Sheet::FormatChar;
 
-our $VERSION = '1.00';
+our $VERSION = '1.01';
 our @EXPORT = qw( kbchars kbmodes );
 
 my $uc = Shiar_Sheet::FormatChar->new;
@@ -36,10 +36,10 @@ sub kbmodes ($modes) {
 			my $class = 'g'.(
 				  !defined $v || $c eq $v ? 1 # identical
 				: $v =~ /\A\p{Mn}+\z/ ? 9 # combining accent
-				: $v =~ /\A[\p{Sk}\p{Lm}]+\z/ ? 8 # modifier symbol
-				: $v =~ /\A[\pM\pP]+\z/ ? 7 # mark
 				: NFKD($v) =~ /\Q$c/ ? 2 # decomposed equivalent
 				: unidecode($v) =~ /\Q$c\E+/i ? 4 # transliterated
+				: $v =~ /\A[\p{Sk}\p{Lm}]+\z/ ? 8 # modifier symbol
+				: $v =~ /\A[\pM\pP]+\z/ ? 7 # mark
 				: $v =~ /^\p{Latin}/ ? 5 # latin script
 				: 6
 			);