anchor.diff:        exit
       end;
   
  -    DoLoadHistoryEx(Ed, SFileName, cfg, path, AllowEnc);
  +    DoLoadHistoryEx(Ed, cfg, path, AllowEnc);
     finally
       cfg.Free;
     end;
   end;
   
   
  -procedure TEditorFrame.DoLoadHistoryEx(Ed: TATSynEdit; const AFileName: string;
  -  c: TJsonConfig; const path: UnicodeString; AllowEnc: boolean);
  -var
  -  str, str0: string;
  +procedure TEditorFrame.DoLoadHistoryEx(Ed: TATSynEdit; c: TJsonConfig;
  +  const path: UnicodeString; AllowEnc: boolean);
  +var
  +  str, str0, sFileName: string;
     Caret: TATCaretItem;
     NPosX, NPosY, NEndX, NEndY: integer;
     nTop, nKind, i: integer;
  
positive.code:     procedure DoSaveHistory(Ed: TATSynEdit);
      procedure DoSaveHistoryEx(Ed: TATSynEdit; c: TJsonConfig; const path: UnicodeString);
      procedure DoLoadHistory(Ed: TATSynEdit; AllowEnc: boolean);
      procedure DoLoadHistoryEx(Ed: TATSynEdit; const AFileName: string; c: TJsonConfig; const path: UnicodeString; AllowEnc: boolean);
      //misc
      function DoPyEvent(AEd: TATSynEdit; AEvent: TAppPyEvent; const AParams: TAppVariantArray): TAppPyEventResult;
      procedure DoGotoPos(Ed: TATSynEdit; APosX, APosY: integer);
  
negative.code:   BmData: TATBookmarkData;
    Sep: TATStringSeparator;
  begin
    sFileName:= GetFileName(Ed);
  
    FillChar(BmData, SizeOf(BmData), 0);
    BmData.ShowInBookmarkList:= true;
  
  