anchor.diff:    end;
   end;
   
  -procedure TEditorFrame.DoSaveHistoryEx(Ed: TATSynEdit; c: TJsonConfig; const path: string);
  +procedure TEditorFrame.DoSaveHistoryEx(Ed: TATSynEdit; c: TJsonConfig; const path: UnicodeString);
   var
     caret: TATCaretItem;
     items, items2: TStringList;
  
positive.code:       exit
      end;
  
      path:= SMaskFilenameSlashes(SFileName);
      items:= TStringList.Create;
      try
        c.DeletePath(path);
        c.EnumSubKeys('/', items);
        while items.Count>=UiOps.MaxHistoryFiles do
        begin
          c.DeletePath('/'+items[0]);
          items.Delete(0);
        end;
      finally
  
negative.code: procedure TEditorFrame.DoSaveHistory(Ed: TATSynEdit);
  var
    c: TJSONConfig;
    SFileName: string;
    path: UnicodeString;
    items: TStringlist;
  begin
    if not FSaveHistory then exit;
  