aboutsummaryrefslogtreecommitdiff
path: root/relabel.lua
diff options
context:
space:
mode:
Diffstat (limited to 'relabel.lua')
-rw-r--r--relabel.lua7
1 files changed, 6 insertions, 1 deletions
diff --git a/relabel.lua b/relabel.lua
index b0a6efc..797e094 100644
--- a/relabel.lua
+++ b/relabel.lua
@@ -347,9 +347,14 @@ local pattern = S * m.Cg(m.Cc(false), "G") * expect(exp, "NoPatt") / mm.P
347 347
348local function lineno (s, i) 348local function lineno (s, i)
349 if i == 1 then return 1, 1 end 349 if i == 1 then return 1, 1 end
350 local adjust = 0
351 if s:sub(i,i) == '\n' then
352 i = i-1
353 adjust = 1
354 end
350 local rest, num = s:sub(1,i):gsub("[^\n]*\n", "") 355 local rest, num = s:sub(1,i):gsub("[^\n]*\n", "")
351 local r = #rest 356 local r = #rest
352 return 1 + num, r ~= 0 and r or 1 357 return 1 + num, (r ~= 0 and r or 1) + adjust
353end 358end
354 359
355local function compile (p, defs) 360local function compile (p, defs)