$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[]
);