anchor.diff:    c.SetValue(path+cHistory_CodeTreeFilter, FCodetreeFilter);
     c.SetValue(path+cHistory_CodeTreeFilters, FCodetreeFilterHistory);
   
  +  DoSaveUndo;
  +end;
  +
  +procedure TEditorFrame.DoSaveUndo;
  +var
  +  fn, dir, s: string;
  +begin
     if IsFilenameListedInExtensionList(FileName, UiOps.UndoPersistent) then
     begin
       fn:= GetAppUndoFilename(FileName);
  
positive.code:         Editor.UndoAsString:= str;
      end;
    end;
  
    Editor.Update;
    if Splitted then
      Editor2.Update;
  end;
  
  function TEditorFrame.DoPyEvent(AEd: TATSynEdit; AEvent: TAppPyEvent;
  
negative.code: 
  procedure TEditorFrame.DoLoadHistoryEx(c: TJsonConfig; const path: string);
  var
    str, str0: string;
    Caret: TATCaretItem;
    nTop, nKind, i: integer;
    items, items2: TStringlist;
  