#| -*-Scheme-*-
-$Id: emacs.scm,v 14.26 1999/02/24 21:36:13 cph Exp $
+$Id: emacs.scm,v 14.27 1999/06/21 03:46:54 cph Exp $
Copyright (c) 1988-1999 Massachusetts Institute of Technology
((cdar pairs) new-port)))
(do ((cmdl (nearest-cmdl) (cmdl/parent cmdl)))
((not cmdl))
- (if (let ((port (cmdl/port cmdl)))
- (or (eq? port the-console-port)
- (eq? port emacs-console-port)))
- (set-cmdl/port! cmdl new-port)))))
+ (let ((port (cmdl/port cmdl)))
+ (cond ((or (eq? port the-console-port)
+ (eq? port emacs-console-port))
+ (set-cmdl/port! cmdl new-port))
+ ((and (transcriptable-port? port)
+ (let ((port (encapsulated-port/port port)))
+ (or (eq? port the-console-port)
+ (eq? port emacs-console-port))))
+ (set-cmdl/port! cmdl (make-transcriptable-port new-port))))))))
(define (select-console-port)
(set! console-output-channel (port/output-channel the-console-port))
#| -*-Scheme-*-
-$Id: runtime.pkg,v 14.328 1999/05/13 03:04:25 cph Exp $
+$Id: runtime.pkg,v 14.329 1999/06/21 03:47:29 cph Exp $
Copyright (c) 1988-1999 Massachusetts Institute of Technology
transcript-on)
(export (runtime rep)
make-transcriptable-port)
+ (export (runtime emacs-interface)
+ make-transcriptable-port
+ transcriptable-port?)
(initialization (initialize-package!)))
(define-package (runtime format)
#| -*-Scheme-*-
-$Id: tscript.scm,v 1.3 1999/02/18 03:54:26 cph Exp $
+$Id: tscript.scm,v 1.4 1999/06/21 03:46:49 cph Exp $
Copyright (c) 1990, 1999 Massachusetts Institute of Technology
(constructor make-encap-state ()))
(transcript-port #f))
-(define (encap? object)
+(define (transcriptable-port? object)
(and (encapsulated-port? object)
(encap-state? (encapsulated-port/state object))))
(define (transcript-on filename)
(let ((encap (nearest-cmdl/port)))
- (if (not (encap? encap))
+ (if (not (transcriptable-port? encap))
(error "Transcript not supported for this REPL."))
(if (encap/tport encap)
(error "transcript already turned on"))
(define (transcript-off)
(let ((encap (nearest-cmdl/port)))
- (if (not (encap? encap))
+ (if (not (transcriptable-port? encap))
(error "Transcript not supported for this REPL."))
(let ((tport (encap/tport encap)))
(if tport
#| -*-Scheme-*-
-$Id: runtime.pkg,v 14.333 1999/05/13 03:04:10 cph Exp $
+$Id: runtime.pkg,v 14.334 1999/06/21 03:47:25 cph Exp $
Copyright (c) 1988-1999 Massachusetts Institute of Technology
transcript-on)
(export (runtime rep)
make-transcriptable-port)
+ (export (runtime emacs-interface)
+ make-transcriptable-port
+ transcriptable-port?)
(initialization (initialize-package!)))
(define-package (runtime format)