anchor.diff:    //saving bookmarks - modern
     if (not AForSession) and (Ed.FileName<>'') then
     begin
  -    SKey:= '/bookmarks/'+SMaskFilenameSlashes(AppCollapseHomeDirInFilename(Ed.FileName));
  +    SKey:= AppConfigKeyForBookmarks(Ed);
       if Ed.Strings.Bookmarks.Count>0 then
         c.SetValue(SKey, EditorBookmarksToString(Ed))
       else
  
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:     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);
  