From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 24 May 2001 18:57:53 +0000 (+0000)
Subject: Fix bug in previous change: was using procedures that returned marks
X-Git-Tag: 20090517-FFI~2789
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=aaa109140e15c6adcaa1202e4bb23e93cf3a9b48;p=mit-scheme.git

Fix bug in previous change: was using procedures that returned marks
when I expected indexes.
---

diff --git a/v7/src/edwin/struct.scm b/v7/src/edwin/struct.scm
index 9ec474881..e5b9c7fe6 100644
--- a/v7/src/edwin/struct.scm
+++ b/v7/src/edwin/struct.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: struct.scm,v 1.94 2001/05/22 16:16:34 cph Exp $
+;;; $Id: struct.scm,v 1.95 2001/05/24 18:57:53 cph Exp $
 ;;;
 ;;; Copyright (c) 1985, 1989-2001 Massachusetts Institute of Technology
 ;;;
@@ -206,10 +206,7 @@
 	       (else
 		(error:wrong-type-argument group "text group"
 					   'WITHOUT-TEXT-CLIPPED)))))
-    (with-group-text-clipped! group
-			      (group-absolute-start group)
-			      (group-absolute-end group)
-			      thunk)))
+    (with-group-text-clipped! group 0 (group-length group) thunk)))
 
 (define (text-clip start end)
   (if (not (mark<= start end))