Add additional kludge so that Emacs port is properly copied to all of

the standard places.

diff --git a/v7/src/runtime/emacs.scm b/v7/src/runtime/emacs.scm
index bea09594ab07b34f0fa66a906c2070a4bfa90d94..670ec02b3e11a4e111e71da8216d09b06230793d 100644 (file)
--- a/v7/src/runtime/emacs.scm
+++ b/v7/src/runtime/emacs.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Id: emacs.scm,v 14.20 1993/11/19 22:17:07 cph Exp $
+$Id: emacs.scm,v 14.21 1994/08/15 19:14:42 cph Exp $
 
-Copyright (c) 1988-93 Massachusetts Institute of Technology
+Copyright (c) 1988-94 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -259,6 +259,12 @@ MIT in each case. |#
          (or (eq? port the-console-port)
              (eq? port emacs-console-port)))
        (set-console-i/o-port! new-port))
+    (do ((pairs standard-port-accessors (cdr pairs)))
+       ((null? pairs))
+      (if (let ((port ((caar pairs))))
+           (or (eq? port the-console-port)
+               (eq? port emacs-console-port)))
+         ((cdar pairs) new-port)))
     (do ((cmdl (nearest-cmdl) (cmdl/parent cmdl)))
        ((not cmdl))
       (if (let ((port (cmdl/port cmdl)))

diff --git a/v7/src/runtime/port.scm b/v7/src/runtime/port.scm
index 8810036de8961842008ea52ae62965d7c303b89e..c1c3dd51079548ef919b9a066cb4ecc8198c5105 100644 (file)
--- a/v7/src/runtime/port.scm
+++ b/v7/src/runtime/port.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Id: port.scm,v 1.7 1993/10/21 14:52:40 cph Exp $
+$Id: port.scm,v 1.8 1994/08/15 19:14:15 cph Exp $
 
-Copyright (c) 1991-93 Massachusetts Institute of Technology
+Copyright (c) 1991-94 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -552,4 +552,11 @@ MIT in each case. |#
 
 (define (with-interaction-i/o-port port thunk)
   (fluid-let ((*interaction-i/o-port* (guarantee-i/o-port port)))
-    (thunk)))
\ No newline at end of file
+    (thunk)))
+
+(define standard-port-accessors
+  (list (cons current-input-port set-current-input-port!)
+       (cons current-output-port set-current-output-port!)
+       (cons notification-output-port set-notification-output-port!)
+       (cons trace-output-port set-trace-output-port!)
+       (cons interaction-i/o-port set-interaction-i/o-port!)))
\ No newline at end of file

diff --git a/v7/src/runtime/runtime.pkg b/v7/src/runtime/runtime.pkg
index 449042bf97ea3d7078ce66cc783b9dc6e55855a5..37c8e99d49584b1227998f8cf871c1e2bfd4c95c 100644 (file)
--- a/v7/src/runtime/runtime.pkg
+++ b/v7/src/runtime/runtime.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: runtime.pkg,v 14.230 1994/08/04 15:23:45 adams Exp $
+$Id: runtime.pkg,v 14.231 1994/08/15 19:14:28 cph Exp $
 
 Copyright (c) 1988-1994 Massachusetts Institute of Technology
 
@@ -1033,7 +1033,8 @@ MIT in each case. |#
          *notification-output-port*
          *trace-output-port*)
   (export (runtime emacs-interface)
-         set-port/thread-mutex!))
+         set-port/thread-mutex!
+         standard-port-accessors))
 
 (define-package (runtime input-port)
   (files "input")

diff --git a/v8/src/runtime/runtime.pkg b/v8/src/runtime/runtime.pkg
index 449042bf97ea3d7078ce66cc783b9dc6e55855a5..37c8e99d49584b1227998f8cf871c1e2bfd4c95c 100644 (file)
--- a/v8/src/runtime/runtime.pkg
+++ b/v8/src/runtime/runtime.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: runtime.pkg,v 14.230 1994/08/04 15:23:45 adams Exp $
+$Id: runtime.pkg,v 14.231 1994/08/15 19:14:28 cph Exp $
 
 Copyright (c) 1988-1994 Massachusetts Institute of Technology
 
@@ -1033,7 +1033,8 @@ MIT in each case. |#
          *notification-output-port*
          *trace-output-port*)
   (export (runtime emacs-interface)
-         set-port/thread-mutex!))
+         set-port/thread-mutex!
+         standard-port-accessors))
 
 (define-package (runtime input-port)
   (files "input")