some little bugfixes

This commit is contained in:
Araq 2011-03-27 00:33:20 +01:00
commit dc669155e3
12 changed files with 91 additions and 69 deletions

View file

@ -164,7 +164,7 @@ proc getCurrentLine(L: TBaseLexer, marker: bool = true): string =
while not (L.buf[i] in {CR, LF, EndOfFile}):
add(result, L.buf[i])
inc(i)
result = result & "\n"
result.add("\n")
if marker:
result = result & RepeatChar(getColNumber(L, L.bufpos)) & '^' & "\n"
result.add(RepeatChar(getColNumber(L, L.bufpos)) & '^' & "\n")