$FETrBaseName=​
​"TokenTranslationDictionary";​
​$FETrFileBaseName=​
​"ExtendedFEResources";​
​If[ !ListQ@$FETrResources,​
​$FETrResources=​
​FrontEndResource[$FETrBaseName]​
​];​
​$FETrBaseFile=​
​FileNameJoin@{​
​$InstallationDirectory,​
​"SystemFiles",​
​"FrontEnd",​
​"TextResources",​
​"TokenTranslationDictionary.tr"​
​};​
​$FEResourceCompleteListing=​
​StringCases[​
​Import[#,"Text"]&/@​
​FileNames["*.tr",FileNameJoin@{$InstallationDirectory,"SystemFiles"},∞],​
​"@@resource "~~w:WordCharacter..w​
​]//Flatten//DeleteDuplicates//Sort;​
​$FETrListing=​
​AssociationMap[​
​Null&,​
​$FEResourceCompleteListing​
​];​
​$FEResourceDirectory=​
​FrontEnd`FileName@{​
​$TemporaryDirectory,​
​"SystemFiles",​
​"FrontEnd",​
​"TextResources"​
​};
FELoadResources[]:=(​
​CurrentValue[$FrontEndSession,​
​{PrivatePaths,"TextResources"}​
​]=​
​DeleteDuplicates@​
​Prepend[​
​CurrentValue[$FrontEndSession,​
​{PrivatePaths,"TextResources"}​
​],​
​FrontEnd`FileName[​
​Evaluate@{ToFileName@@$FEResourceDirectory}​
​]​
​];​
​FrontEndExecute@FrontEnd`FlushTextResourceCaches[]​
​);