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: var
    c: TJSONConfig;
    SFileName: string;
  begin
    SFileName:= GetFileName(Ed);
    if SFileName='' then exit;
  
negative.code:     procedure DoFileReload;
      procedure DoLexerFromFilename(Ed: TATSynEdit; const AFileName: string);
      procedure DoSaveHistory(Ed: TATSynEdit);
      procedure DoSaveHistoryEx(Ed: TATSynEdit; c: TJsonConfig; const path: UnicodeString);
      procedure DoSaveUndo(Ed: TATSynEdit; const AFileName: string);
      procedure DoLoadHistory(Ed: TATSynEdit);
      procedure DoLoadHistoryEx(Ed: TATSynEdit; const AFileName: string; c: TJsonConfig; const path: UnicodeString);
      procedure DoLoadUndo(Ed: TATSynEdit);
      //misc
      function DoPyEvent(AEd: TATSynEdit; AEvent: TAppPyEvent; const AParams: array of string): string;
  