From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 8 Jan 1991 04:49:24 +0000 (+0000)
Subject: Re-enable ^G interrupts whenever entering input wait.
X-Git-Tag: 20090517-FFI~10976
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=1ef91bd6724516e3a8ce9df0e4023ba6eb6b10c8;p=mit-scheme.git

Re-enable ^G interrupts whenever entering input wait.
---

diff --git a/etc/xscheme.el b/etc/xscheme.el
index c5cb47910..bcfb6d9da 100644
--- a/etc/xscheme.el
+++ b/etc/xscheme.el
@@ -1,5 +1,5 @@
 ;; Run Scheme under Emacs
-;; Copyright (C) 1986, 1987, 1989, 1990 Free Software Foundation, Inc.
+;; Copyright (C) 1986, 1987, 1989, 1990, 1991 Free Software Foundation, Inc.
 
 ;; This file is part of GNU Emacs.
 
@@ -20,7 +20,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.26 1990/09/11 01:51:20 cph Exp $
+;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/etc/xscheme.el,v 1.27 1991/01/08 04:49:24 cph Exp $
 
 (require 'scheme)
 
@@ -753,6 +753,7 @@ the remaining input.")
 
 (defun xscheme-enter-input-wait ()
   (xscheme-set-runlight xscheme-runlight:input)
+  (setq xscheme-control-g-disabled-p nil)
   (setq xscheme-running-p nil))
 
 (defun xscheme-exit-input-wait ()