bugfix: the double consonants tt gg hh dd ss zz must not output a šaddah when the first consonant is preceded by a diacritic

2 files changed, 4 insertions, 4 deletions

diff --git a/arabluatex_fullvoc.lua b/arabluatex_fullvoc.lua
index 097aa5d..6d63192 100644
--- a/arabluatex_fullvoc.lua
+++ b/arabluatex_fullvoc.lua
@@ -510,7 +510,7 @@ digraphsfvidgham = {
    {a="ئئ", b="ئّ"},
    {a="bb", b="بّ"},
    {a="BB", b="ـّ"},
-   {a="(%_)([thd])([thd])", b="%1%2|%3"},
+   {a="([%_%^%.])([tghdsz])([tghdsz])", b="%1%2|%3"},
    {a="tt", b="تّ"},
    {a="%_t%_t", b="ثّ"},
    {a="jj", b="جّ"},
@@ -618,7 +618,7 @@ digraphsfv = {
    {a="ئئ", b="ئّ"},
    {a="bb", b="بّ"},
    {a="BB", b="ـّ"},
-   {a="(%_)([thd])([thd])", b="%1%2|%3"},
+   {a="([%_%^%.])([tghdsz])([tghdsz])", b="%1%2|%3"},
    {a="tt", b="تّ"},
    {a="%_t%_t", b="ثّ"},
    {a="jj", b="جّ"},
@@ -726,7 +726,7 @@ digraphsfveasy = { -- see the differences under 'easy' marker below
    {a="ئئ", b="ئّ"},
    {a="bb", b="بّ"},
    {a="BB", b="ـّ"},
-   {a="(%_)([thd])([thd])", b="%1%2|%3"},
+   {a="([%_%^%.])([tghdsz])([tghdsz])", b="%1%2|%3"},
    {a="tt", b="تّ"},
    {a="%_t%_t", b="ثّ"},
    {a="jj", b="جّ"},
diff --git a/arabluatex_voc.lua b/arabluatex_voc.lua
index 106bf99..073b23f 100644
--- a/arabluatex_voc.lua
+++ b/arabluatex_voc.lua
@@ -639,7 +639,7 @@ digraphs = {
    {a="ئئ", b="ئّ"},
    {a="bb", b="بّ"},
    {a="BB", b="ـّ"},
-   {a="(%_)([thd])([thd])", b="%1%2|%3"},
+   {a="([%_%^%.])([tghdsz])([tghdsz])", b="%1%2|%3"},
    {a="tt", b="تّ"},
    {a="%_t%_t", b="ثّ"},
    {a="jj", b="جّ"},