summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--src/lib/repr/tengwar.ml5
1 files changed, 5 insertions, 0 deletions
diff --git a/src/lib/repr/tengwar.ml b/src/lib/repr/tengwar.ml
index e198964..d529016 100644
--- a/src/lib/repr/tengwar.ml
+++ b/src/lib/repr/tengwar.ml
@@ -463,6 +463,11 @@ let fold
_fold
(Some {empty_glyph with tehta_below = Some v})
tl
+ | Some ({ tehta_below = Some _ ; _} as t), Consonant c ->
+ repr_glyph t buff;
+ _fold
+ (Some {empty_glyph with tengwa = Some c})
+ tl
| Some t, Voyel ({position = `Above; _} as v) ->
repr_glyph t buff;
_fold