X-Git-Url: http://git.shiar.net/sheet.git/blobdiff_plain/0880539638400df47ab159dfd6f282cd46f9de09..c72d9fce2dae5b7d1e443f30b1abfddb352eabde:/Shiar_Sheet/KeyboardChars.pm

diff --git a/Shiar_Sheet/KeyboardChars.pm b/Shiar_Sheet/KeyboardChars.pm
index 0c5b5e5..d0e84c8 100644
--- a/Shiar_Sheet/KeyboardChars.pm
+++ b/Shiar_Sheet/KeyboardChars.pm
@@ -55,7 +55,7 @@ sub kbmodes ($modes) {
 			my $class = (
 				  !defined $v || $c eq $v ? 'no' # identical
 				: $v =~ /\A\p{Mn}+\z/ ? 'g9' # combining accent
-				: NFKD($v) =~ /\Q$c/ ? 'g2' # decomposed equivalent
+				: NFKD($v) =~ /\A\Q$c\E\p{Mn}*\z/ ? 'g2' # decomposed equivalent
 				: unidecode($v) =~ /\Q$c\E+/i ? 'g4' # transliterated
 				: $v =~ /\A[\p{Sk}\p{Lm}]+\z/ ? 'g8' # modifier symbol
 				: $v =~ /\A[\pM\pP]+\z/ ? 'g7' # mark