From 28e3b4bbb8ab1bc761ec9a11fb0f2799419cbc1f Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 4 Mar 1996 20:46:35 +0000
Subject: [PATCH] Fix bug that caused recentering under certain circumstances
 when writing out a buffer in which require-final-newline was set.

---
 v7/src/edwin/fileio.scm | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

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