From: Brian A. LaMacchia <edu/mit/csail/zurich/bal>
Date: Tue, 12 Jan 1993 22:06:34 +0000 (+0000)
Subject: Fix boundary error involving changes indexes in buffer and narrowing.
X-Git-Tag: 20090517-FFI~8592
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=8b9033bbee4db269b41122da03a769624518f265;p=mit-scheme.git

Fix boundary error involving changes indexes in buffer and narrowing.
---

diff --git a/v7/src/edwin/bufwiu.scm b/v7/src/edwin/bufwiu.scm
index ada796f00..3848c5ea7 100644
--- a/v7/src/edwin/bufwiu.scm
+++ b/v7/src/edwin/bufwiu.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: bufwiu.scm,v 1.22 1993/01/12 10:50:38 cph Exp $
+;;;	$Id: bufwiu.scm,v 1.23 1993/01/12 22:06:34 bal Exp $
 ;;;
 ;;;	Copyright (c) 1986, 1989-93 Massachusetts Institute of Technology
 ;;;
@@ -169,10 +169,14 @@
 	       (let ((start-changes
 		      (let ((start-changes
 			     (%window-start-changes-index window)))
-			(%window-line-start-index window start-changes)))
+			(if (%window-group-start-index? window start-changes)
+			    (%window-group-start-index window)
+			    (%window-line-start-index window start-changes))))
 		     (end-changes
 		      (let ((end-changes (%window-end-changes-index window)))
-			(%window-line-end-index window end-changes))))
+			(if (%window-group-end-index? window end-changes)
+			    (%window-group-end-index window)
+			    (%window-line-end-index window end-changes)))))
 		 (if (fix:<= start-changes start)
 		     (if (fix:< end-changes end)
 			 (preserve-bottom! window end-changes end)
@@ -536,4 +540,4 @@
       (%set-inferior-y-start! (%window-cursor-inferior window) end-y))
     (update-modified-tick! window)
     (set-interrupt-enables! mask)
-    unspecific))
\ No newline at end of file
+    unspecific))