patch 8.2.1513: cannot interrupt shell used for filename expansion
Problem: Cannot interrupt shell used for filename expansion. (Dominique
Pellé)
Solution: Do set tmode in mch_delay(). (closes #6770)
diff --git a/src/os_amiga.c b/src/os_amiga.c
index 850c26a..91c13e7 100644
--- a/src/os_amiga.c
+++ b/src/os_amiga.c
@@ -222,10 +222,10 @@
/*
* Waits a specified amount of time, or until input arrives if
- * ignoreinput is FALSE.
+ * flags does not have MCH_DELAY_IGNOREINPUT.
*/
void
-mch_delay(long msec, int ignoreinput)
+mch_delay(long msec, int flags)
{
#ifndef LATTICE // SAS declares void Delay(ULONG)
void Delay(long);
@@ -233,7 +233,7 @@
if (msec > 0)
{
- if (ignoreinput)
+ if (flags & MCH_DELAY_IGNOREINPUT)
Delay(msec / 20L); // Delay works with 20 msec intervals
else
WaitForChar(raw_in, msec * 1000L);