From d5955b6de5b2159fa43a4cae54a146cc7e1d190a Mon Sep 17 00:00:00 2001
From: martin <laz.git@mfriebe.de>
Date: Fri, 2 Jan 2009 23:58:25 +0000
Subject: [PATCH] SynEdit Folding: Highlighter didn't reset bracket count (some
 folds where not available)

git-svn-id: trunk@18070 -
---
 components/synedit/synhighlighterpas.pp | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/components/synedit/synhighlighterpas.pp b/components/synedit/synhighlighterpas.pp
index 16a0f98f87..07a341b0bc 100644
--- a/components/synedit/synhighlighterpas.pp
+++ b/components/synedit/synhighlighterpas.pp
@@ -118,6 +118,7 @@ type
     FMode: TPascalCompilerMode;
     FBracketNestLevel : Integer;
   public
+    procedure Clear; override;
     function Compare(Range: TSynCustomHighlighterRange): integer; override;
     procedure Assign(Src: TSynCustomHighlighterRange); override;
     procedure IncBracketNestLevel;
@@ -2395,6 +2396,12 @@ end;
 {$IFDEF SYN_LAZARUS}
 { TSynPasSynRange }
 
+procedure TSynPasSynRange.Clear;
+begin
+  inherited Clear;
+  FBracketNestLevel := 0;
+end;
+
 function TSynPasSynRange.Compare(Range: TSynCustomHighlighterRange): integer;
 begin
   Result:=inherited Compare(Range);