anchor.diff:    //caret
     if Ed.Carets.Count>0 then
     begin
  -    str:= c.GetValue(path+cHistory_Caret, '');
  -    Sep.Init(str);
  +    Sep.Init(sCarets);
       Sep.GetItemInt(NPosX, 0);
       Sep.GetItemInt(NPosY, 0);
       Sep.GetItemInt(NEndX, -1);
  
positive.code: 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;
  
negative.code:   BmData.ShowInBookmarkList:= true;
  
    //file not listed in history file?
    sCarets:= c.GetValue(path+cHistory_Caret, '');
    if sCarets='' then exit;
  
    //lexer
    str0:= LexerName[Ed];
  