anchor.diff:  unit FormMain;
   
   {$mode objfpc}{$H+}
  +
   {$IFDEF DEBUG}
   {$INLINE OFF}
   {$ENDIF}
  +//{$define debug_on_lexer}
  +
   interface
   
   uses
  
positive.code:   Frame: TEditorFrame;
    Params: TAppVariantArray;
    Keymap: TATKeymap;
    SFileName, SLexerName: string;
  begin
    if Sender is TEditorFrame then
      Frame:= TEditorFrame(Sender)
  
negative.code:   if not FSessionIsLoading then
      if (SLexerName<>'') or not EditorIsEmpty(Ed) then
      begin
        {$ifdef debug_on_lexer}
        MsgLogConsole('on_lexer: file "'+ExtractFileName(SFileName)+'" -> "'+SLexerName+'"');
        {$endif}
  
        SetLength(Params, 0);
        DoPyEvent(Ed, cEventOnLexer, Params);
  