anchor.diff:    FCodetreeFilter:= c.GetValue(path+cHistory_CodeTreeFilter, '');
     c.GetValue(path+cHistory_CodeTreeFilters, FCodetreeFilterHistory, '');
   
  +  DoLoadUndo;
  +
  +  Editor.Update;
  +  if Splitted then
  +    Editor2.Update;
  +end;
  +
  +procedure TEditorFrame.DoLoadUndo;
  +var
  +  fn, str: string;
  +begin
     if IsFilenameListedInExtensionList(FileName, UiOps.UndoPersistent) then
     begin
       fn:= GetAppUndoFilename(FileName);
  
positive.code:   caret: TATCaretItem;
    items, items2: TStringList;
    bookmark: TATBookmarkItem;
    s, fn, dir: string;
    i: integer;
  begin
    c.SetValue(path+cHistory_Lexer, LexerName);
  
negative.code: 
  procedure TEditorFrame.DoLoadHistoryEx(c: TJsonConfig; const path: string);
  var
    str, str0: string;
    Caret: TATCaretItem;
    nTop, nKind, i: integer;
    items, items2: TStringlist;
  