gui: do not show directories as wads and language files

[d2df-editor.git] / src / editor / g_language.pas

diff --git a/src/editor/g_language.pas b/src/editor/g_language.pas
index ea1f23660237da8593209739dc0200d84287843f..3f7c5de42a034e21c7fe41ac61f3982481d031eb 100644 (file)
--- a/src/editor/g_language.pas
+++ b/src/editor/g_language.pas
@@ -1343,7 +1343,7 @@ begin
   list := TStringList.Create;
   list.Duplicates := dupIgnore;
   list.Add(InSourceLanguage);
-  if FindFirst(LangDir + DirectorySeparator + langfilename + '.*.lng', faAnyFile, info) = 0 then
+  if FindFirst(LangDir + DirectorySeparator + langfilename + '.*.lng', faReadOnly, info) = 0 then
   begin
     repeat
       list.Add(Copy(ExtractFileNameWithoutExt(info.Name), Length(langfilename) + 2));