summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/lualatex/arabluatex/arabluatex.lua
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/tex/lualatex/arabluatex/arabluatex.lua')
-rw-r--r--Master/texmf-dist/tex/lualatex/arabluatex/arabluatex.lua13
1 files changed, 7 insertions, 6 deletions
diff --git a/Master/texmf-dist/tex/lualatex/arabluatex/arabluatex.lua b/Master/texmf-dist/tex/lualatex/arabluatex/arabluatex.lua
index b21ee63dee8..c0e02324e07 100644
--- a/Master/texmf-dist/tex/lualatex/arabluatex/arabluatex.lua
+++ b/Master/texmf-dist/tex/lualatex/arabluatex/arabluatex.lua
@@ -129,6 +129,7 @@ local function takeoutcapetc(str)
return string.format("%s", body)
end)
str = string.gsub(str, "\\linebreak", "")
+ str = string.gsub(str, "\\%-", "")
return str
end
@@ -548,12 +549,12 @@ function cap(str)
body = string.sub(body, 2, -2)
return string.format("%s", body)
end)
- if string.find(str, "%-['`ʾʿ]") then
- str = string.gsub(str, "(%-['`])", "%1\\MakeUppercase ")
- str = string.gsub(str, "(%-ʿ)", "%1\\MakeUppercase ")
- str = string.gsub(str, "(%-ʾ)", "%1\\MakeUppercase ")
- elseif string.find(str, "%-[^'`ʾʿ]") then
- str = string.gsub(str, "(%-)", "%1\\MakeUppercase ")
+ if string.find(str, "[^\\]%-['`ʾʿ]") then
+ str = string.gsub(str, "([^\\]%-['`])", "%1\\MakeUppercase ")
+ str = string.gsub(str, "([^\\]%-ʿ)", "%1\\MakeUppercase ")
+ str = string.gsub(str, "([^\\]%-ʾ)", "%1\\MakeUppercase ")
+ elseif string.find(str, "[^\\]%-[^'`ʾʿ]") then
+ str = string.gsub(str, "([^\\]%-)", "%1\\MakeUppercase ")
elseif string.find(str, "^['`ʾʿ]") then
str = string.gsub(str, "^(['`])", "%1\\MakeUppercase ")
str = string.gsub(str, "^(ʿ)", "%1\\MakeUppercase ")