From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 13 Jan 1992 19:15:42 +0000 (+0000)
Subject: When salvaging buffers, don't use WRITE-REGION, because it does
X-Git-Tag: 20090517-FFI~10001
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=93a3b44e795f5fedd4c06d2b57503c4661bd33d7;p=mit-scheme.git

When salvaging buffers, don't use WRITE-REGION, because it does
prompting and so forth.  Use the lower-level GROUP-WRITE-TO-FILE which
does nothing special.
---

diff --git a/v7/src/edwin/debuge.scm b/v7/src/edwin/debuge.scm
index 86827dd4f..7e9116131 100644
--- a/v7/src/edwin/debuge.scm
+++ b/v7/src/edwin/debuge.scm
@@ -1,8 +1,8 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/debuge.scm,v 1.43 1991/11/04 20:50:48 cph Exp $
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/debuge.scm,v 1.44 1992/01/13 19:15:42 cph Exp $
 ;;;
-;;;	Copyright (c) 1986, 1989-91 Massachusetts Institute of Technology
+;;;	Copyright (c) 1986, 1989-92 Massachusetts Institute of Technology
 ;;;
 ;;;	This material was developed by the Scheme project at the
 ;;;	Massachusetts Institute of Technology, Department of
@@ -76,7 +76,11 @@
 		    (write-string "Writing file '")
 		    (write-string filename)
 		    (write-string "'")
-		    (write-region (buffer-region buffer) filename false)
+		    (let ((region (buffer-unclipped-region buffer)))
+		      (group-write-to-file (region-group region)
+					   (region-start-index region)
+					   (region-end-index region)
+					   filename))
 		    (write-string " -- done")
 		    (set-buffer-pathname! buffer pathname)
 		    (set-buffer-truename! buffer (->truename pathname))