anchor.diff:  
   uses
     Messages, Forms, SysUtils, StrUtils, Variants, Classes, Controls, Graphics, Contnrs, Dialogs,
  -  LCLintf, LCLType, LazFileUtils,
  +  LCLintf, LCLType, LazFileUtils, mnSynHighlighterBVH,
     EditorOptions, EditorRun, EditorClasses, mneRunFrames,
     SynEditHighlighter, SynEditSearch, SynEdit, Registry, EditorEngine, mnXMLRttiProfile, mnXMLUtils,
     SynEditTypes, SynCompletion, SynHighlighterHashEntries, EditorProfiles,
  
positive.code:   public
    end;
  
    TLSLEditorDebugger = class(TEditorDebugger)
    end;
  
  
negative.code: 
  uses
    IniFiles, mnStreams, mnUtils;
  
  { TBVHFileCategory }
  
  function TBVHFileCategory.DoCreateHighlighter: TSynCustomHighlighter;
  begin
    Result := TSynBVHSyn.Create(nil);
  end;
  
  procedure TBVHFileCategory.InitMappers;
  begin
    with Highlighter as TSynBVHSyn do
    begin
      Mapper.Add(WhitespaceAttri, attDefault);
      Mapper.Add(CommentAttri, attComment);
      Mapper.Add(ProcessorAttri, attDirective);
      Mapper.Add(KeywordAttri, attKeyword);
      Mapper.Add(DocumentAttri, attDocument);
      Mapper.Add(IdentifierAttri, attIdentifier);
      Mapper.Add(VariableAttri, attVariable);
      Mapper.Add(TypeAttri, attDataType);
      Mapper.Add(ValueAttri, attDataValue);
      Mapper.Add(FunctionAttri, attCommon);
      Mapper.Add(TextAttri, attText);
      Mapper.Add(NumberAttri, attNumber);
      Mapper.Add(StringAttri, attQuotedString);
      Mapper.Add(SymbolAttri, attSymbol);
    end
  end;
  
  procedure TBVHFileCategory.InitCompletion(vSynEdit: TCustomSynEdit);
  begin
    inherited;
    Completion.EndOfTokenChr := '{}()[].<>/\:!&*+-=%;';//what about $
  end;
  
  procedure TBVHFileCategory.DoPrepareCompletion(Sender: TObject);
  begin
    inherited;
    Screen.Cursor := crHourGlass;
    Completion.ItemList.BeginUpdate;
    try
      Completion.ItemList.Clear;
      EnumerateKeywords(Ord(attKeyword), sBVHKeywords, Highlighter.IdentChars, @DoAddCompletion);
      EnumerateKeywords(Ord(attDataType), sBVHTypes, Highlighter.IdentChars, @DoAddCompletion);
    finally
      Completion.ItemList.EndUpdate;
      Screen.Cursor := crDefault;
    end;
  end;
  
  { TBVHFile }
  
  procedure TBVHFile.NewContent;
  begin
    inherited NewContent;
  end;
  
  { TLSLTendency }
  
  