anchor.diff:        exit
       end;
   
  -    DoLoadHistoryEx(Ed, SFileName, c, SMaskFilenameSlashes(SFileName));
  +    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: string);
  +procedure TEditorFrame.DoLoadHistoryEx(Ed: TATSynEdit; const AFileName: string; c: TJsonConfig; const path: UnicodeString);
   var
     str, str0: string;
     Caret: TATCaretItem;
  
positive.code:   end;
  end;
  
  procedure TEditorFrame.DoSaveHistoryEx(Ed: TATSynEdit; c: TJsonConfig; const path: string);
  var
    caret: TATCaretItem;
    items, items2: TStringList;
  
negative.code: procedure TEditorFrame.DoSaveHistory(Ed: TATSynEdit);
  var
    c: TJSONConfig;
    SFileName: string;
    path: UnicodeString;
    items: TStringlist;
  begin
    if not FSaveHistory then exit;
  