Optimized prompt output upon cancel
This commit is contained in:
@@ -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.
|
||||
|
||||
Reference in New Issue
Block a user