1 files changed, 8 insertions, 8 deletions

diff --git a/arabluatex_novoc.lua b/arabluatex_novoc.lua
index b77cfda..f2d0d5a 100644
--- a/arabluatex_novoc.lua
+++ b/arabluatex_novoc.lua
@@ -36,9 +36,9 @@ tanwinnv = {
 --   {a="(O[%S]-)(%-?aN)(Y)(O)([rlmnwy])", b="%5%5"},
 --   {a="%-?(aN)(_A)(%s)([rlmnwy])", b="ى%3%4%4"},
 --   {a="%-?(aN)(Y)(%s)([rlmnwy])", b="ى%3%4%4"},
---   {a="(T)%-?(aN)(%s)([rlmnwy])", b="%1%3%4%4"},
+--   {a="([TH])%-?(aN)(%s)([rlmnwy])", b="%1%3%4%4"},
 --   {a="(ء)%-?(aN)(%s)([rlmnwy])", b="%1%3%4%4"},
---   {a="([^TA])%-?(aN)(%s)([rlmnwy])", b="%1ا%3%4%4"},
+--   {a="([^TAH])%-?(aN)(%s)([rlmnwy])", b="%1ا%3%4%4"},
 --   {a="%-?(iNI?)(%s)([rlmnwy])", b="|%2%3%3"},
    -- assimilations (end)
    -- "quoted" tanwīn (begin)
@@ -46,9 +46,9 @@ tanwinnv = {
    {a="(B)%-?(\"aN)", b="%1ً"},
    {a="%-?(\"aN)(_A)", b="ًى"},
    {a="%-?(\"aN)(Y)", b="ًى"},
-   {a="(T)%-?(\"aN)", b="%1ً"},
+   {a="([TH])%-?(\"aN)", b="%1ً"},
    {a="([اآ])(ء)%-?(\"aN)", b="%1%2ً"}, --new
-   {a="([^TA])%-?(\"aN)", b="%1ًا"},
+   {a="([^TAH])%-?(\"aN)", b="%1ًا"},
    {a="%-?(\"iNI?)", b="ٍ"},
    -- "quoted" tanwīn (end)
    {a="%-?(uN)", b=""},
@@ -56,15 +56,15 @@ tanwinnv = {
    -- needed by \arbcolor:
    {a="%-?(aN)(O[%S]-%_AO)", b=""},
    {a="%-?(aN)(O[%S]-YO)", b=""},
-   {a="(O[%S]-TO)%-?(aN)", b=""},
+   {a="(O[%S]-[TH]O)%-?(aN)", b=""},
    {a="(O[%S]-)([اآ])(ء)(O)%-?(aN)", b=""}, --new
-   {a="(O[%S]-[^TA]O)%-?(aN)", b=""},
+   {a="(O[%S]-[^TAH]O)%-?(aN)", b=""},
    --
    {a="%-?(aN)(_A)", b="ى"},
    {a="%-?(aN)(Y)", b="ى"},
-   {a="(T)%-?(aN)", b="%1"},
+   {a="([TH])%-?(aN)", b="%1"},
    {a="([اآ])(ء)%-?(aN)", b="%1%2"}, --new
-   {a="([^TA])%-?(aN)", b="%1ا"},
+   {a="([^TAH])%-?(aN)", b="%1ا"},
    {a="%-?(iNI?)", b=""},
    -- ʾalif al-waṣl: put it back on with \arbnull
    {a="(O[%S]-)([%'a]l%-)(O)(\"?[uai])", b="%4"},