From 24da91f0a89a1d4744ad3d82b9219976f7df0d06 Mon Sep 17 00:00:00 2001 From: mattias Date: Mon, 26 Dec 2011 13:20:58 +0000 Subject: [PATCH] codetools: started &keyword identifiers git-svn-id: trunk@34429 - --- components/codetools/customcodetool.pas | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/components/codetools/customcodetool.pas b/components/codetools/customcodetool.pas index 3e8cc6f7ae..8ac4f8f7a1 100644 --- a/components/codetools/customcodetool.pas +++ b/components/codetools/customcodetool.pas @@ -803,9 +803,10 @@ function TCustomCodeTool.AtomIsIdentifier(ExceptionOnNotFound: boolean):boolean; begin if (CurPos.StartPos<=SrcLen) - and IsIdentStartChar[Src[CurPos.StartPos]] - and not WordIsKeyWordFuncList.DoItCaseInsensitive(Src,CurPos.StartPos, - CurPos.EndPos-CurPos.StartPos) + and ((IsIdentStartChar[Src[CurPos.StartPos]] + and not WordIsKeyWordFuncList.DoItCaseInsensitive(Src,CurPos.StartPos, + CurPos.EndPos-CurPos.StartPos)) + or (Src[CurPos.StartPos]='&') and IsIdentChar[Src[CurPos.StartPos+1]]) then exit(true); if not ExceptionOnNotFound then