From 9aa9b4eaf8c4810e46b1244f9fe1af98029708c0 Mon Sep 17 00:00:00 2001 From: varunghat Date: Wed, 8 Jul 2026 17:16:28 +0200 Subject: [PATCH] fix: clicks no longer silently deleted when adjacent to a modifier --- scripts/aggregation-helper-functions.R | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/scripts/aggregation-helper-functions.R b/scripts/aggregation-helper-functions.R index 1b4605c..34bd92b 100644 --- a/scripts/aggregation-helper-functions.R +++ b/scripts/aggregation-helper-functions.R @@ -235,13 +235,13 @@ make_typestring <- function(strings, ...) { codepts <- get_codepoints(chars) codepts[codepts %in% get_codepoints(base_glyphs)] <- "B" codepts[codepts %in% get_codepoints(modifiers)] <- "M" - codepts[codepts %in% get_codepoints(clicks)] <- "M" + codepts[codepts %in% get_codepoints(clicks)] <- "K" codepts[codepts %in% get_codepoints(diacritics)] <- "D" codepts[codepts %in% get_codepoints(contour_glyphs)] <- "C" codepts[codepts %in% get_codepoints(tones)] <- "T" codepts[codepts %in% get_codepoints(null_phone)] <- "N" codepts[codepts %in% get_codepoints(disjunct)] <- "|" - missed <- !codepts %in% c("B", "M", "C", "D", "T", "N", "|") + missed <- !codepts %in% c("B", "M", "K", "C", "D", "T", "N", "|") if (any(missed)) { warning(paste("Unfamiliar glyph components.", "Phone:", string, "Codepoint:", codepts[missed]),