From c454a3f2ce30b8fc0658e26aa5bac698fd647290 Mon Sep 17 00:00:00 2001
From: Robert Alessi <alessi@robertalessi.net>
Date: Fri, 15 Sep 2017 20:20:15 +0200
Subject: added the pipe char. to specify that a word ending in -aT is in the
 construct state

---
 arabluatex_trans.lua | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'arabluatex_trans.lua')

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="ṯ"},
-- 
cgit v1.2.3