From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 28 Oct 1993 20:50:55 +0000 (+0000)
Subject: Patch TRANSCRIPT-WRITE to work even if the transcript buffer is
X-Git-Tag: 20090517-FFI~7649
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=24d89bc9cabdb0abc5896d055b03448e18cd4c8d;p=mit-scheme.git

Patch TRANSCRIPT-WRITE to work even if the transcript buffer is
read-only.
---

diff --git a/v7/src/edwin/evlcom.scm b/v7/src/edwin/evlcom.scm
index dfe87d920..3bc55a225 100644
--- a/v7/src/edwin/evlcom.scm
+++ b/v7/src/edwin/evlcom.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: evlcom.scm,v 1.48 1993/10/27 02:23:21 cph Exp $
+;;;	$Id: evlcom.scm,v 1.49 1993/10/28 20:50:55 cph Exp $
 ;;;
 ;;;	Copyright (c) 1986, 1989-93 Massachusetts Institute of Technology
 ;;;
@@ -558,9 +558,11 @@ FIT           Error messages appear in typein window if they fit;
 	  (transcript-value-string value))))
     (if buffer
 	(let ((point (mark-left-inserting-copy (buffer-end buffer))))
-	  (guarantee-newlines 1 point)
-	  (insert-string value-string point)
-	  (insert-newlines 2 point)
+	  (with-read-only-defeated point
+	    (lambda ()
+	      (guarantee-newlines 1 point)
+	      (insert-string value-string point)
+	      (insert-newlines 2 point)))
 	  (mark-temporary! point)))
     (if (or (not buffer) (null? (buffer-windows buffer)))
 	(message value-string))))