diff options
Diffstat (limited to 'tex/context/base/mkiv/syst-lua.lmt')
| -rw-r--r-- | tex/context/base/mkiv/syst-lua.lmt | 13 |
1 files changed, 9 insertions, 4 deletions
diff --git a/tex/context/base/mkiv/syst-lua.lmt b/tex/context/base/mkiv/syst-lua.lmt index d74b27689..b1735d44e 100644 --- a/tex/context/base/mkiv/syst-lua.lmt +++ b/tex/context/base/mkiv/syst-lua.lmt @@ -7,7 +7,7 @@ if not modules then modules = { } end modules ['syst-lua'] = { } local load, type, tonumber = load, type, tonumber -local find = string.find +local find, gsub = string.find, string.gsub local concat = table.concat local utfchar = utf.char local S, C, P, lpegmatch, lpegtsplitat = lpeg.S, lpeg.C, lpeg.P, lpeg.match, lpeg.tsplitat @@ -379,9 +379,12 @@ do local m = scancsname(true) local c = channels[n] local s = c and c:reader() - if not s then + if s then + s = gsub(s," *$"," ") -- or just "", no need to fake tex here + else channels[n] = false - s = "\\par" -- or just "", no need to fake tex here + -- s = "\\par" + s = "" -- no need to fake tex here end setmacro(m, s, prefix) -- checks for frozen end, @@ -397,7 +400,9 @@ do local m = scancsname(true) local c = channels[n] local s = c and c:reader() - if not s then + if s then + -- should we strip spaces at the end? + else channels[n] = false s = "" end |