paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-02 05:39:37 +01:00
Code Issues Packages Projects Releases Wiki Activity

SynEdit: pas highlighter, minor optimization

Browse Source 
git-svn-id: trunk@37114 -
This commit is contained in:
martin 2012-04-30 19:00:46 +00:00
parent b4d22ba095
commit 3af8c6a1b7
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/synedit/synhighlighterpas.pp
View File

@ -2819,9 +2819,11 @@ begin
inc(Run);
fTokenID := tkSymbol;
PasCodeFoldRange.DecBracketNestLevel;
fRange := fRange + [rsAtClosingBracket];
if (PasCodeFoldRange.BracketNestLevel = 0) then
if (PasCodeFoldRange.BracketNestLevel = 0) then begin
if (fRange * [rsAfterClass] <> []) then
fRange := fRange + [rsAtClosingBracket];
Exclude(fRange, rsInProcHeader);
end;
end;
procedure TSynPasSyn.SquareOpenProc;