anchor.diff:  procedure TEditorFrame.DoSaveHistory(Ed: TATSynEdit);
   var
     c: TJSONConfig;
  -  path, SFileName: string;
  +  SFileName: string;
  +  path: UnicodeString;
     items: TStringlist;
   begin
     if not FSaveHistory then exit;
  
positive.code: var
    c: TJSONConfig;
    SFileName: string;
  begin
    SFileName:= GetFileName(Ed);
    if SFileName='' then exit;
  
negative.code:       exit
      end;
  
      path:= UTF8Decode(SMaskFilenameSlashes(SFileName));
      DoLoadHistoryEx(Ed, SFileName, c, path);
    finally
      c.Free;
    end;
  end;
  
  
  procedure TEditorFrame.DoLoadHistoryEx(Ed: TATSynEdit; const AFileName: string; c: TJsonConfig; const path: UnicodeString);
  var
    str, str0: string;
    Caret: TATCaretItem;
  