From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 4 Mar 1996 20:46:35 +0000 (+0000)
Subject: Fix bug that caused recentering under certain circumstances when
X-Git-Tag: 20090517-FFI~5671
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=28e3b4bbb8ab1bc761ec9a11fb0f2799419cbc1f;p=mit-scheme.git

Fix bug that caused recentering under certain circumstances when
writing out a buffer in which require-final-newline was set.
---

diff --git a/v7/src/edwin/fileio.scm b/v7/src/edwin/fileio.scm
index d550aff9c..f5553ff4d 100644
--- a/v7/src/edwin/fileio.scm
+++ b/v7/src/edwin/fileio.scm
@@ -1,8 +1,8 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: fileio.scm,v 1.132 1995/10/03 21:12:25 cph Exp $
+;;;	$Id: fileio.scm,v 1.133 1996/03/04 20:46:35 cph Exp $
 ;;;
-;;;	Copyright (c) 1986, 1989-95 Massachusetts Institute of Technology
+;;;	Copyright (c) 1986, 1989-96 Massachusetts Institute of Technology
 ;;;
 ;;;	This material was developed by the Scheme project at the
 ;;;	Massachusetts Institute of Technology, Department of
@@ -656,7 +656,8 @@ Otherwise, a message is written both before and after long file writes."
 (define (require-newline buffer)
   (let ((require-final-newline? (ref-variable require-final-newline buffer)))
     (if require-final-newline?
-	(without-group-clipped! (buffer-group buffer)
+	(with-text-clipped (buffer-absolute-start buffer)
+			   (buffer-absolute-end buffer)
 	  (lambda ()
 	    (let ((end (buffer-end buffer)))
 	      (if (let ((last-char (extract-left-char end)))