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 7f73f5222c856796334a656c425cf23ea5f84fb2..13a48976391b0d1e48c3cc6a3baa1f08fead2d89 100644 (file)
--- 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*)