From aaa109140e15c6adcaa1202e4bb23e93cf3a9b48 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 24 May 2001 18:57:53 +0000
Subject: [PATCH] Fix bug in previous change: was using procedures that
 returned marks when I expected indexes.

---
 v7/src/edwin/struct.scm | 7 ++-----
 1 file changed, 2 insertions(+), 5 deletions(-)

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