From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 19 Dec 1994 19:38:09 +0000 (+0000)
Subject: Fix bug that caused asynchronous thread events, and therefore C-g, to
X-Git-Tag: 20090517-FFI~6868
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=85e760a401613cca1db4d1ea5d885fd34bae782c;p=mit-scheme.git

Fix bug that caused asynchronous thread events, and therefore C-g, to
stop working after the first time C-g was typed.
---

diff --git a/v7/src/edwin/comred.scm b/v7/src/edwin/comred.scm
index 7f73f5222..13a489763 100644
--- a/v7/src/edwin/comred.scm
+++ b/v7/src/edwin/comred.scm
@@ -1,8 +1,8 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: comred.scm,v 1.111 1994/09/08 20:34:04 adams Exp $
+;;;	$Id: comred.scm,v 1.112 1994/12/19 19:38:09 cph Exp $
 ;;;
-;;;	Copyright (c) 1986, 1989-93 Massachusetts Institute of Technology
+;;;	Copyright (c) 1986, 1989-94 Massachusetts Institute of Technology
 ;;;
 ;;;	This material was developed by the Scheme project at the
 ;;;	Massachusetts Institute of Technology, Department of
@@ -156,6 +156,7 @@
       (with-editor-interrupts-disabled keyboard-read)))
 
 (define (reset-command-state!)
+  (unblock-thread-events)
   (set! *last-command* *command*)
   (set! *command* false)
   (set! *command-argument* *next-argument*)