anchor.diff:      procedure DoSaveHistoryEx(Ed: TATSynEdit; c: TJsonConfig; const path: UnicodeString);
       procedure DoLoadHistory(Ed: TATSynEdit; AllowEnc: boolean);
       procedure DoLoadHistoryEx(Ed: TATSynEdit; c: TJsonConfig; const path: UnicodeString; AllowEnc: boolean);
  +    procedure DoLoadHistory_Bookmarks(Ed: TATSynEdit; c: TJsonConfig; const path: UnicodeString);
       //misc
       function DoPyEvent(AEd: TATSynEdit; AEvent: TAppPyEvent; const AParams: TAppVariantArray): TAppPyEventResult;
       procedure DoPyEventState(Ed: TATSynEdit; AState: integer);
  
positive.code:     FreeAndNil(items2);
      FreeAndNil(items);
    end;
  
    FCodetreeFilter:= c.GetValue(path+cHistory_CodeTreeFilter, '');
    c.GetValue(path+cHistory_CodeTreeFilters, FCodetreeFilterHistory, '');
  
negative.code:    end;
  end;
  
  procedure TEditorFrame.DoLoadHistory_Bookmarks(Ed: TATSynEdit; c: TJsonConfig; const path: UnicodeString);
  var
    items, items2: TStringList;
    BmData: TATBookmarkData;
    nTop, nKind, i: integer;
  begin
    FillChar(BmData, SizeOf(BmData), 0);
    BmData.ShowInBookmarkList:= true;
  
    items:= TStringList.Create;
    items2:= TStringList.Create;
    try
      c.GetValue(path+cHistory_Bookmark, items, '');
      c.GetValue(path+cHistory_BookmarkKind, items2, '');
  