From c3ba563495a0133b325009d3aaf6cde9b48b79b4 Mon Sep 17 00:00:00 2001 From: Chris Hanson 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