From b5ede2531793d410b1a6b72d44350d0d99bebf6e Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Wed, 26 Feb 1992 22:39:18 +0000 Subject: [PATCH] Make sure that thread-mutex of emacs interface port is same as that of the console port. Otherwise keyboard interrupts aren't correctly delivered. --- v7/src/runtime/emacs.scm | 6 +++++- v7/src/runtime/runtime.pkg | 6 ++++-- v8/src/runtime/runtime.pkg | 6 ++++-- 3 files changed, 13 insertions(+), 5 deletions(-) diff --git a/v7/src/runtime/emacs.scm b/v7/src/runtime/emacs.scm index 4b37c4286..77baa3ccb 100644 --- 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 c4048d59c..06cbfc710 100644 --- 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 76f27f7df..164d3dd66 100644 --- 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") -- 2.25.1