genhelp: fix upper case substition

cute-signatures
Timo Teräs 2022-01-21 14:47:54 +02:00
parent 10d0043063
commit b7e3ca22f7
1 changed files with 1 additions and 1 deletions

View File

@ -139,7 +139,7 @@ function scdoc:parse_default(ln)
ln = ln:gsub("([^\\])%*(.-[^\\])%*", "%1%2")
ln = ln:gsub("^%*(.-[^\\])%*", "%1")
ln = ln:gsub("([^\\])_(.-[^\\])_", function(a,s) return a..s:upper() end)
ln = ln:gsub("^_(.-[^\\])_", function(a,s) return a..s:upper() end)
ln = ln:gsub("^_(.-[^\\])_", function(s) return s:upper() end)
ln = ln:gsub("\\", "")
self:section_text(ln)