paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-13 23:49:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

synedit: fixed mulitline matching bracket from Martin Friebe (issue #11732)

Browse Source 
git-svn-id: trunk@15845 -
This commit is contained in:
vincents 2008-07-23 11:55:44 +00:00
parent 4e326a4448
commit e596ab63b2
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/synedit/synedit.pp
View File

@ -10658,6 +10658,8 @@ var
fHighlighter.Next; fHighlighter.Next;
end; end;
MaxKnownTokenPos := Length(Line); MaxKnownTokenPos := Length(Line);
TokenPosList[i].X := MaxKnownTokenPos;
TokenListCnt := i + 1;
Result := TokenPosList[i-1].Attr = BracketKind; Result := TokenPosList[i-1].Attr = BracketKind;
exit; exit;
end; end;