From 24d89bc9cabdb0abc5896d055b03448e18cd4c8d Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 28 Oct 1993 20:50:55 +0000
Subject: [PATCH] Patch TRANSCRIPT-WRITE to work even if the transcript buffer
 is read-only.

---
 v7/src/edwin/evlcom.scm | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

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))))
-- 
2.25.1