added the pipe char. to specify that a word ending in -aT is in the construct state

1 files changed, 2 insertions, 0 deletions

diff --git a/arabluatex_trans.lua b/arabluatex_trans.lua
index e4296e9..0f9043e 100644
--- a/arabluatex_trans.lua
+++ b/arabluatex_trans.lua
@@ -629,6 +629,7 @@ digraphstrloc = {
    --   {a="T([^uai])", b="h%1"},
    {a="([a%']l%-)(%S-)T([%(%[%|%<%s])(al%-)", b="%1%2h%3%4"}, --p
    {a="T([%(%[%|%<%s])(al%-)", b="t%1%2"}, --p
+   {a="T([%|\"])", b="t%1"},
    {a="T(%p?)$", b="h%1"},
    {a="T(%p?%s)", b="h%1"},
    {a="_t", b="th"},
@@ -878,6 +879,7 @@ digraphstrarabica = {
    --   {a="T([^uai])", b="h%1"},
    {a="([a%']l%-)(%S-)aT([%(%[%|%<%s])(al%-)", b="%1%2a%3%4"}, --p
    {a="aT([%(%[%|%<%s])(al%-)", b="at%1%2"}, --p
+   {a="T([%|\"])", b="t%1"},
    {a="aT(%p?)$", b="a%1"},
    {a="aT(%p?%s)", b="a%1"},
    {a="_t", b="ṯ"},