From: Chris Hanson <org/chris-hanson/cph>
Date: Sun, 27 Feb 2000 05:33:41 +0000 (+0000)
Subject: Fix thinko in previous change.
X-Git-Tag: 20090517-FFI~4229
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=a4cbad9906e1d9dbd9d8ffcff15fee6d86faee2e;p=mit-scheme.git

Fix thinko in previous change.
---

diff --git a/v7/src/edwin/grpops.scm b/v7/src/edwin/grpops.scm
index 8b5e4a217..054cc3518 100644
--- a/v7/src/edwin/grpops.scm
+++ b/v7/src/edwin/grpops.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: grpops.scm,v 1.26 2000/02/25 17:47:00 cph Exp $
+;;; $Id: grpops.scm,v 1.27 2000/02/27 05:33:41 cph Exp $
 ;;;
 ;;; Copyright (c) 1986, 1989-2000 Massachusetts Institute of Technology
 ;;;
@@ -253,7 +253,9 @@
   (let ((interrupt-mask (set-interrupt-enables! interrupt-mask/gc-ok))
 	(end-index (fix:+ index 1)))
     (prepare-gap-for-replace! group index end-index)
-    (string-set! (group-text group) index char)
+    (string-set! (group-text group)
+		 (group-index->position-integrable group index #t)
+		 char)
     (finish-group-replace! group index end-index)
     (set-interrupt-enables! interrupt-mask)
     unspecific))
@@ -266,7 +268,9 @@
       (let ((interrupt-mask (set-interrupt-enables! interrupt-mask/gc-ok))
 	    (end-index (fix:+ index (fix:- end start))))
 	(prepare-gap-for-replace! group index end-index)
-	(%substring-move! string start end (group-text group) index)
+	(%substring-move! string start end
+			  (group-text group)
+			  (group-index->position-integrable group index #t))
 	(finish-group-replace! group index end-index)
 	(set-interrupt-enables! interrupt-mask)
 	unspecific)))