From b00e2117ba5171b993547c847a752cd264bcc68c Mon Sep 17 00:00:00 2001
From: martin <laz.git@mfriebe.de>
Date: Tue, 3 Jan 2012 22:05:39 +0000
Subject: [PATCH] SynEdit: fix bracket matching with SynAnySyn

git-svn-id: trunk@34568 -
---
 components/synedit/synhighlighterany.pas | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/components/synedit/synhighlighterany.pas b/components/synedit/synhighlighterany.pas
index 6beb0a6bf2..780a32a37e 100644
--- a/components/synedit/synhighlighterany.pas
+++ b/components/synedit/synhighlighterany.pas
@@ -86,6 +86,8 @@ type
     procedure ReadSectionNames(asection:string;alist:TStrings);
   end;
 
+  { TSynAnySyn }
+
   TSynAnySyn = class(TSynCustomHighlighter)
   private
     fUserData:TIniList;
@@ -135,6 +137,7 @@ type
     procedure NullProc;
     procedure NumberProc;
     procedure RoundOpenProc;
+    procedure RoundCloseProc;
     procedure SlashProc;
     procedure SpaceProc;
     procedure StringProc;
@@ -390,6 +393,7 @@ begin
       #0: fProcTable[I] := {$ifdef FPC}@{$endif}NullProc;
       '0'..'9': fProcTable[I] := {$ifdef FPC}@{$endif}NumberProc;
       '(': fProcTable[I] := {$ifdef FPC}@{$endif}RoundOpenProc;
+      ')': fProcTable[I] := {$ifdef FPC}@{$endif}RoundCloseProc;
       '/': fProcTable[I] := {$ifdef FPC}@{$endif}SlashProc;
       #1..#9, #11, #12, #14..#32: fProcTable[I] := {$ifdef FPC}@{$endif}SpaceProc;
       else fProcTable[I] := {$ifdef FPC}@{$endif}UnknownProc;
@@ -694,6 +698,12 @@ begin
   end else fTokenId := tkSymbol;
 end;
 
+procedure TSynAnySyn.RoundCloseProc;
+begin
+  inc(Run);
+  FTokenID := tkSymbol;
+end;
+
 procedure TSynAnySyn.SlashProc;
 begin
   case FLine[Run + 1] of