From 047bd064e5a332d065ad4091dab5fb63b2e10907 Mon Sep 17 00:00:00 2001
From: paul <paul@lazarus-ide.org>
Date: Fri, 16 Jan 2009 02:21:04 +0000
Subject: [PATCH] synedit: highlight compilerproc modifier

git-svn-id: trunk@18303 -
---
 components/synedit/synhighlighterpas.pp | 14 +++++++++-----
 1 file changed, 9 insertions(+), 5 deletions(-)

diff --git a/components/synedit/synhighlighterpas.pp b/components/synedit/synhighlighterpas.pp
index 9c55cb3f25..4f98fac6fc 100644
--- a/components/synedit/synhighlighterpas.pp
+++ b/components/synedit/synhighlighterpas.pp
@@ -1379,17 +1379,21 @@ end;
 
 function TSynPasSyn.Func143: TtkTokenKind;
 begin
-  if KeyComp('Destructor') then begin
-    if not(rsAfterEqual in fRange) then begin
+  if KeyComp('Destructor') then
+  begin
+    if not(rsAfterEqual in fRange) then
+    begin
       TSynPasSynRange(CodeFoldRange).BracketNestLevel := 0; // Reset in case of partial code
-      if TopPascalCodeFoldBlockType=cfbtVarType then EndCodeFoldBlockLastLine;
+      if TopPascalCodeFoldBlockType = cfbtVarType then EndCodeFoldBlockLastLine;
       if not (rsInterface in fRange) and
-         not(TopPascalCodeFoldBlockType in [cfbtClass, cfbtClassSection])
-      then
+         not(TopPascalCodeFoldBlockType in [cfbtClass, cfbtClassSection]) then
         StartPascalCodeFoldBlock(cfbtProcedure);
     end;
     Result := tkKey;
   end else
+  if KeyComp('compilerproc') then // fpc modifier
+    Result := tkKey
+  else
     Result := tkIdentifier;
 end;