diff options
-rw-r--r-- | arabluatex.lua | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/arabluatex.lua b/arabluatex.lua index 4c2fac5..c0e0232 100644 --- a/arabluatex.lua +++ b/arabluatex.lua | |||
@@ -550,11 +550,11 @@ function cap(str) | |||
550 | return string.format("%s", body) | 550 | return string.format("%s", body) |
551 | end) | 551 | end) |
552 | if string.find(str, "[^\\]%-['`ʾʿ]") then | 552 | if string.find(str, "[^\\]%-['`ʾʿ]") then |
553 | str = string.gsub(str, "(%-['`])", "%1\\MakeUppercase ") | 553 | str = string.gsub(str, "([^\\]%-['`])", "%1\\MakeUppercase ") |
554 | str = string.gsub(str, "(%-ʿ)", "%1\\MakeUppercase ") | 554 | str = string.gsub(str, "([^\\]%-ʿ)", "%1\\MakeUppercase ") |
555 | str = string.gsub(str, "(%-ʾ)", "%1\\MakeUppercase ") | 555 | str = string.gsub(str, "([^\\]%-ʾ)", "%1\\MakeUppercase ") |
556 | elseif string.find(str, "[^\\]%-[^'`ʾʿ]") then | 556 | elseif string.find(str, "[^\\]%-[^'`ʾʿ]") then |
557 | str = string.gsub(str, "(%-)", "%1\\MakeUppercase ") | 557 | str = string.gsub(str, "([^\\]%-)", "%1\\MakeUppercase ") |
558 | elseif string.find(str, "^['`ʾʿ]") then | 558 | elseif string.find(str, "^['`ʾʿ]") then |
559 | str = string.gsub(str, "^(['`])", "%1\\MakeUppercase ") | 559 | str = string.gsub(str, "^(['`])", "%1\\MakeUppercase ") |
560 | str = string.gsub(str, "^(ʿ)", "%1\\MakeUppercase ") | 560 | str = string.gsub(str, "^(ʿ)", "%1\\MakeUppercase ") |