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);
end;
if c = #13 then
Writeln;
if c = ^C then
Result := ''; //Pretend that nothing happened.
Writeln; //Always end the line
end;
end.