From 1143f67306e5768a9ee93a15c96428ab64349eed Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Fri, 21 Oct 1988 16:30:23 +0000 Subject: [PATCH] Force control-g synchronization always. Turns out BSD had the same problem as hp-ux. --- etc/xscheme.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/etc/xscheme.el b/etc/xscheme.el index 059287719..4969fe767 100644 --- a/etc/xscheme.el +++ b/etc/xscheme.el @@ -21,7 +21,7 @@ ;;; Requires C-Scheme release 5 or later ;;; Changes to Control-G handler require runtime version 13.85 or later -;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/etc/xscheme.el,v 1.20 1988/10/21 15:28:23 cph Exp $ +;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/etc/xscheme.el,v 1.21 1988/10/21 16:30:23 cph Exp $ (require 'scheme) @@ -451,7 +451,7 @@ reading-string reading prompt string") "This variable, if nil, indicates that the scheme process is waiting for input. Otherwise, it is busy evaluating something.") -(defconst xscheme-control-g-synchronization-p (eq system-type 'hpux) +(defconst xscheme-control-g-synchronization-p t "If non-nil, insert markers in the scheme input stream to indicate when control-g interrupts were signalled. Do not allow more control-g's to be signalled until the scheme process acknowledges receipt.") -- 2.25.1