1 files changed, 2 insertions, 2 deletions

diff --git a/arabluatex_voc.lua b/arabluatex_voc.lua
index fb704ea..61e4c4a 100644
--- a/arabluatex_voc.lua
+++ b/arabluatex_voc.lua
@@ -550,12 +550,12 @@ digraphs = {
    -- ʾiʿrāb (end)
    -- initial straight double quote gives a connective ʾalif
    {a="^\"[uai]", b="ٱ"},
-   {a="([%s%-])\"[uai]", b="%1ٱ"},
+   {a="([%p%s%-])\"[uai]", b="%1ٱ"}, --p
    {a="(aW)(%s)([uai])", b="awuا%2%3"},
    -- hyphen + initial alif without hamza:
    {a="(%-)([uai])([%^%_%.%`]?)(%a)", b="%1ا%3%4"},
    {a="^([uai])", b="ا%1"},      -- initial alif without hamza
-   {a="(%s)([uai])", b="%1ا"}, -- initial alif without hamza
+   {a="([%p%s])([uai])", b="%1ا"}, -- initial alif without hamza --p
    {a="%-%-", b="ـ"},
    {a="ؤؤ", b="ؤّ"},
    {a="أأ", b="أّ"},