genhelp: fix upper case substition
parent
10d0043063
commit
b7e3ca22f7
|
@ -139,7 +139,7 @@ function scdoc:parse_default(ln)
|
||||||
ln = ln:gsub("([^\\])%*(.-[^\\])%*", "%1%2")
|
ln = ln:gsub("([^\\])%*(.-[^\\])%*", "%1%2")
|
||||||
ln = ln:gsub("^%*(.-[^\\])%*", "%1")
|
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(a,s) return a..s:upper() end)
|
ln = ln:gsub("^_(.-[^\\])_", function(s) return s:upper() end)
|
||||||
ln = ln:gsub("\\", "")
|
ln = ln:gsub("\\", "")
|
||||||
|
|
||||||
self:section_text(ln)
|
self:section_text(ln)
|
||||||
|
|
Loading…
Reference in New Issue