From: Mischa POSLAWSKY <perl@shiar.org>
Date: Tue, 5 Mar 2024 17:14:27 +0000 (+0100)
Subject: keyboard/altgr: ignore partial decomposition as accented flag
X-Git-Url: http://git.shiar.net/sheet.git/commitdiff_plain/c72d9fce2dae5b7d1e443f30b1abfddb352eabde

keyboard/altgr: ignore partial decomposition as accented flag

Prevent fractions such as ¾ (3/4) from matching either 3 or 4
in eurkey and msx-graph.  No changes otherwise.
---

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