Bläddra i källkod

- removed the IsAlt local variable, because it is not used

git-svn-id: branches/unicodekvm@41493 -
nickysn 6 år sedan
förälder
incheckning
1961c8f27c
1 ändrade filer med 1 tillägg och 5 borttagningar
  1. 1 5
      packages/rtl-console/src/unix/keyboard.pp

+ 1 - 5
packages/rtl-console/src/unix/keyboard.pp

@@ -1670,7 +1670,7 @@ var
   MyScan:byte;
   MyChar : char;
   MyKey: TEnhancedKeyEvent;
-  EscUsed,AltPrefixUsed,CtrlPrefixUsed,ShiftPrefixUsed,IsAlt,Again : boolean;
+  EscUsed,AltPrefixUsed,CtrlPrefixUsed,ShiftPrefixUsed,Again : boolean;
   SState: TEnhancedShiftState;
 
 begin {main}
@@ -1694,8 +1694,6 @@ begin {main}
   AltPrefixUsed:=false;
   ShiftPrefixUsed:=false;
   EscUsed:=false;
-  if IsAlt then
-    Include(SState, essAlt);
   repeat
     again:=false;
     if Mychar=#0 then
@@ -1839,8 +1837,6 @@ begin {main}
         MyKey:=ReadKey;
         MyChar:=MyKey.AsciiChar;
         MyScan:=ord(MyChar);
-        if IsAlt then
-          Include(SState,essAlt);
       end;
     until not Again;
   if (MyChar<>#0) or (MyScan<>0) or (SState<>[]) then