From 4db2eccd14774275e1f49c326e3f94eec224add1 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Sat, 27 Oct 2007 18:13:20 +0000
Subject: [PATCH] synedit: added function IsIndentChar needed for unicode
 support

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

diff --git a/components/synedit/synedit.pp b/components/synedit/synedit.pp
index e359d65f5a..062c2e5c3d 100644
--- a/components/synedit/synedit.pp
+++ b/components/synedit/synedit.pp
@@ -755,6 +755,9 @@ type
     function GetWordAtRowCol(XY: TPoint): string;
     procedure GotoBookMark(BookMark: Integer);
     function IdentChars: TSynIdentChars;
+    {$IFDEF SYN_LAZARUS}
+    function IsIdentChar(const c: TUTF8Char): boolean;
+    {$ENDIF}
     procedure InvalidateGutter;
     procedure InvalidateLine(Line: integer);
     function IsBookmark(BookMark: integer): boolean;
@@ -7130,6 +7133,13 @@ begin
     {$ENDIF}
 end;
 
+{$IFDEF SYN_LAZARUS}
+function TCustomSynEdit.IsIdentChar(const c: TUTF8Char): boolean;
+begin
+  Result:=(length(c)=1) and (c[1] in IdentChars);
+end;
+{$ENDIF}
+
 procedure TCustomSynEdit.SetBookMark(BookMark: Integer; X: Integer; Y: Integer);
 var
   i: Integer;