paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-13 08:19:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

* unpush key fix

Browse Source
This commit is contained in:
peter 2001-08-04 11:05:21 +00:00
parent 75676a4866
commit 2cade09e9f
1 changed files with 11 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
rtl/unix/keyboard.pp
View File

@ -1096,7 +1096,15 @@ Begin
if not assigned(NNPT) then if not assigned(NNPT) then
begin begin
if ch<>#0 then if ch<>#0 then
PushKey(ch); begin
{ Put that unused char back into InBuf }
InBuf[InHead]:=ch;
inc(InCnt);
inc(InHead);
{Wrap if End has Reached}
if InHead>=InSize then
InHead:=0;
end;
break; break;
end; end;
end; end;
@ -1716,8 +1724,8 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.5 2001-08-02 20:56:08 peter Revision 1.6 2001-08-04 11:05:21 peter
* Regenerated * unpush key fix
Revision 1.4 2001/06/27 21:37:38 peter Revision 1.4 2001/06/27 21:37:38 peter
* v10 merges * v10 merges