From 8b876cf74c473b359df63c608e15a296af1c00eb Mon Sep 17 00:00:00 2001
From: Inari Listenmaa <inari.listenmaa@gmail.com>
Date: Fri, 15 Apr 2022 10:37:21 +0800
Subject: [PATCH] (Est) Workaround for short forms of Sg pers. prons

Always use long Gen, because other cases are formed from long Gen stem
---
 src/estonian/MorphoEst.gf | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/estonian/MorphoEst.gf b/src/estonian/MorphoEst.gf
index fe8380238..d8754b512 100644
--- a/src/estonian/MorphoEst.gf
+++ b/src/estonian/MorphoEst.gf
@@ -520,6 +520,7 @@ caseTable : Number -> Noun -> Case => Str = \n,cn ->
   -- Ess, Abess, Comit, Termin all use the long Gen stem.
   -- Alternative 1: let Gen be long form, leaving only Nom and Part actually short
   -- Alternative 2: leave Gen short, postprocess Ess, Abess, Comit, Termin in application
+  -- Alternative 3: include two Gen stems in NPForm
   shortPronoun : (_,_,_,_ : Str) -> Number -> Person ->
     {s : NPForm => Str ; a : Agr} =
       \ma, mu, mind, minu, n, p ->
@@ -531,6 +532,7 @@ caseTable : Number -> Noun -> Case => Str = \n,cn ->
         } ;
 
      in shortMa ** { s = table {
+         NPCase Gen => minu ; -- this is Alternative 1, see comment above. Comment out for Alternative 2.
          NPCase Allat => mulle ;
          NPCase Transl => minu + "ks" ;
          x          => shortMa.s ! x } } ;