* initialize SState from the shift state, returned by ReadKey

git-svn-id: branches/unicodekvm@41516 -

packages/rtl-console/src/unix/keyboard.pp

@@ -1653,12 +1653,7 @@ begin {main}
   MyKey:=ReadKey;
   MyChar:=MyKey.AsciiChar;
   MyScan:=MyKey.VirtualScanCode shr 8;
-{$ifdef linux}
-  if is_console then
-    SState:=EnhShiftState
-  else
-{$endif}
-    Sstate:=[];
+  Sstate:=MyKey.ShiftState;
   CtrlPrefixUsed:=false;
   AltPrefixUsed:=false;
   ShiftPrefixUsed:=false;