From c3ba563495a0133b325009d3aaf6cde9b48b79b4 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 3 Dec 2001 18:15:22 +0000
Subject: [PATCH] Add (sleep-for 0.1) after signalling an interrupt, in order
to work around race condition.
---
etc/xscheme.el | 2 ++
1 file changed, 2 insertions(+)
diff --git a/etc/xscheme.el b/etc/xscheme.el
index 7f274a2ce..ef3d2ba5f 100644
--- a/etc/xscheme.el
+++ b/etc/xscheme.el
@@ -696,6 +696,7 @@ Control returns to the top level rep loop."
(setq xscheme-control-g-disabled-p t))
(message xscheme-control-g-message-string)
(interrupt-process xscheme-process-name)
+ (sleep-for 0.1)
(xscheme-send-char 0)))))
(defconst xscheme-control-g-message-string
@@ -720,6 +721,7 @@ Control returns to the top level rep loop."
"Send a ^A type interrupt to the Scheme process."
(interactive "cInterrupt character to send: ")
(quit-process xscheme-process-name)
+ (sleep-for 0.1)
(xscheme-send-char char)
(if (and mark-p xscheme-control-g-synchronization-p)
(xscheme-send-char 0)))
--
2.25.1