From 126f9199ff468a96c35047ccb740d013b515a184 Mon Sep 17 00:00:00 2001
From: lazarus <lazarus@lazarus-ide.org>
Date: Sat, 17 Aug 2002 23:40:50 +0000
Subject: [PATCH] MG: fixed bracket hilighting

git-svn-id: trunk@2063 -
---
 components/synedit/synedit.pp | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/components/synedit/synedit.pp b/components/synedit/synedit.pp
index 07c4094d53..740c1807bf 100644
--- a/components/synedit/synedit.pp
+++ b/components/synedit/synedit.pp
@@ -2496,7 +2496,6 @@ var
     {$IFDEF SYN_LAZARUS}
     BracketFGCol, BracketBGCol: TColor;
     BracketStyle: TFontStyles;
-    nTokenStart, nTokenEnd: integer;
     {$ENDIF}
   begin
     // Initialize rcLine for drawing. Note that Top and Bottom are updated
@@ -2668,7 +2667,7 @@ var
                   AddHighlightToken(sToken, nTokenPos, nTokenLen,
                     BracketFGCol, BracketBGCol, BracketStyle);
                   inc(nTokenPos,nTokenLen);
-                  AddHighlightToken(@sToken[nTokenLen-1], nTokenPos, 1,
+                  AddHighlightToken(@sToken[nTokenLen], nTokenPos, 1,
                     BracketFGCol, BracketBGCol, BracketStyle+[fsBold]);
                 end else begin
                   // draw rest