anchor.diff:    BmData: TATBookmarkData;
     Sep: TATStringSeparator;
   begin
  +  sFileName:= GetFileName(Ed);
  +
     FillChar(BmData, SizeOf(BmData), 0);
     BmData.ShowInBookmarkList:= true;
   
  
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:       exit
      end;
  
      DoLoadHistoryEx(Ed, cfg, path, AllowEnc);
    finally
      cfg.Free;
    end;
  end;
  
  
  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;
  