anchor.diff:      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);
  +    function AppConfigKeyForBookmarks(Ed: TATSynEdit): string;
       //misc
       function DoPyEvent(AEd: TATSynEdit; AEvent: TAppPyEvent; const AParams: TAppVariantArray): TAppPyEventResult;
       procedure DoPyEventState(Ed: TATSynEdit; AState: integer);
  
positive.code:   //loading bookmarks - modern
    if Ed.FileName<>'' then
    begin
      SKey:= '/bookmarks/'+SMaskFilenameSlashes(AppCollapseHomeDirInFilename(Ed.FileName));
      SValue:= c.GetValue(SKey, '');
      if SValue<>'' then
        EditorStringToBookmarks(Ed, SValue);
    end;
  end;
  
  procedure TEditorFrame.DoSaveHistory_Bookmarks(Ed: TATSynEdit; c: TJsonConfig;
  
negative.code:   //saving bookmarks - modern
    if (not AForSession) and (Ed.FileName<>'') then
    begin
      SKey:= AppConfigKeyForBookmarks(Ed);
      if Ed.Strings.Bookmarks.Count>0 then
        c.SetValue(SKey, EditorBookmarksToString(Ed))
      else
  