small optim

Alexey-T · Jan 6, 2024 · 3fde292 · 3fde292
1 parent 6ba6cf1
commit 3fde292
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 0 deletions.
diff --git a/atsynedit_cmp/atsynedit_cmp_html.pas b/atsynedit_cmp/atsynedit_cmp_html.pas
@@ -487,6 +487,7 @@ function TATCompletionOptionsHtml.IsValidTag(const S: string; PartialAllowed: bo
   if ListOfTags=nil then
   begin
     ListOfTags:= TStringList.Create;
+    ListOfTags.UseLocale:= false;
     ListOfTags.Sorted:= true;
     ListOfTags.CaseSensitive:= false;
     Provider.GetTags(ListOfTags);

diff --git a/atsynedit_cmp/atsynedit_cmp_html_provider.pas b/atsynedit_cmp/atsynedit_cmp_html_provider.pas
@@ -104,6 +104,7 @@ procedure TATHtmlBasicProvider.GetTags(L: TStringList);
   S, SKey, SVal: string;
 begin
   L.Clear;
+  L.UseLocale:= false;
   L.Sorted:= true;
 
   for S in ListAll do
@@ -119,6 +120,7 @@ procedure TATHtmlBasicProvider.GetTagProps(const ATag: string; L: TStringList);
   Sep: TATStringSeparator;
 begin
   L.Clear;
+  L.UseLocale:= false;
   L.Sorted:= true;
 
   for S in ListGlobals do
@@ -166,6 +168,7 @@ procedure TATHtmlBasicProvider.GetTagPropValues(const ATag, AProp: string; L: TS
   Sep: TATStringSeparator;
 begin
   L.Clear;
+  L.UseLocale:= false;
   L.Sorted:= true;
 
   if (AProp='type') and IsTagWithMimeType(ATag) then