Optimized prompt output upon cancel

This commit is contained in:
Andreas Schneider 2015-09-28 11:13:04 +02:00
parent 46a87b3e0c
commit 02625fca66
1 changed files with 2 additions and 3 deletions

View File

@ -54,11 +54,10 @@ begin
Write(ADefault); Write(ADefault);
end; end;
if c = #13 then
Writeln;
if c = ^C then if c = ^C then
Result := ''; //Pretend that nothing happened. Result := ''; //Pretend that nothing happened.
Writeln; //Always end the line
end; end;
end. end.