From: Chris Hanson Date: Fri, 21 Oct 1988 16:30:23 +0000 (+0000) Subject: Force control-g synchronization always. Turns out BSD had the same X-Git-Tag: 20090517-FFI~12489 X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=1143f67306e5768a9ee93a15c96428ab64349eed;p=mit-scheme.git Force control-g synchronization always. Turns out BSD had the same problem as hp-ux. --- 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.")