Make sure that thread-mutex of emacs interface port is same as that of

the console port.  Otherwise keyboard interrupts aren't correctly
delivered.

diff --git a/v7/src/runtime/emacs.scm b/v7/src/runtime/emacs.scm
index 4b37c42864f72e8944614d95a015a8420e09c1be..77baa3ccb01f45a9df536c6af174c1725508825d 100644 (file)
--- a/v7/src/runtime/emacs.scm
+++ b/v7/src/runtime/emacs.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/emacs.scm,v 14.11 1992/02/08 15:08:23 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/emacs.scm,v 14.12 1992/02/26 22:39:18 cph Exp $
 
 Copyright (c) 1988-92 Massachusetts Institute of Technology
 
@@ -257,6 +257,10 @@ MIT in each case. |#
                                 ,(port/operation the-console-port name)))))
                        (port/operation-names the-console-port)))
         (port/state the-console-port)))
+  ;; YUCCH!  Kludge to copy mutex of console port into emacs port.
+  ((record-modifier port-rtd 'THREAD-MUTEX)
+   emacs-console-port
+   (port/thread-mutex the-console-port))
   (set-console-i/o-port! (select-console-port))
   (add-event-receiver! event:after-restore reset-console-port!))
 

diff --git a/v7/src/runtime/runtime.pkg b/v7/src/runtime/runtime.pkg
index c4048d59cc6dc46ef034a2b4d0afb33f87cdfd87..06cbfc710f0cd532a5f44a6611007b4a42c19e7f 100644 (file)
--- a/v7/src/runtime/runtime.pkg
+++ b/v7/src/runtime/runtime.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/runtime.pkg,v 14.134 1992/02/25 22:56:37 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/runtime.pkg,v 14.135 1992/02/26 22:39:05 cph Exp $
 
 Copyright (c) 1988-92 Massachusetts Institute of Technology
 
@@ -929,7 +929,9 @@ MIT in each case. |#
          port?
          set-input-port/state!
          set-output-port/state!
-         set-port/state!))
+         set-port/state!)
+  (export (runtime emacs-interface)
+         port-rtd))
 
 (define-package (runtime input-port)
   (files "input")

diff --git a/v8/src/runtime/runtime.pkg b/v8/src/runtime/runtime.pkg
index 76f27f7df1b288b8ecce8e936f66e436a4ff7d57..164d3dd662167f127b60ced5c180ca818765f837 100644 (file)
--- a/v8/src/runtime/runtime.pkg
+++ b/v8/src/runtime/runtime.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/runtime.pkg,v 14.134 1992/02/25 22:56:37 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/runtime.pkg,v 14.135 1992/02/26 22:39:05 cph Exp $
 
 Copyright (c) 1988-92 Massachusetts Institute of Technology
 
@@ -929,7 +929,9 @@ MIT in each case. |#
          port?
          set-input-port/state!
          set-output-port/state!
-         set-port/state!))
+         set-port/state!)
+  (export (runtime emacs-interface)
+         port-rtd))
 
 (define-package (runtime input-port)
   (files "input")