fix text input validation

[d2df-sdl.git] / src / shared / utils.pas

diff --git a/src/shared/utils.pas b/src/shared/utils.pas
index 790feb7a60a4aef96629831d2801b2ea1b54a56f..948ac697f8c948b37be295ec3db9aa1a432c2a16 100644 (file)
--- a/src/shared/utils.pas
+++ b/src/shared/utils.pas
@@ -1021,7 +1021,7 @@ end;
 
 function IsValid1251 (ch: Word): Boolean;
 begin
-  result := ((ch = Ord('?')) or (wc2shitmap[ch] <> '?')) and (ch <> $98)
+  result := ((ch = Ord('?')) or (wc2shitmap[ch] <> '?')) and (wc2shitmap[ch] <> #$98)
 end;
 
 function IsPrintable1251 (ch: AnsiChar): Boolean;