From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 25 Aug 1993 05:11:12 +0000 (+0000)
Subject: INTERVAL-PROPERTY now takes three arguments instead of two.
X-Git-Tag: 20090517-FFI~7985
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=caa2a6eb87871a172debdd5babefdd92926f085b;p=mit-scheme.git

INTERVAL-PROPERTY now takes three arguments instead of two.
---

diff --git a/v7/src/edwin/bufwfs.scm b/v7/src/edwin/bufwfs.scm
index 2e3e0501f..51293476c 100644
--- a/v7/src/edwin/bufwfs.scm
+++ b/v7/src/edwin/bufwfs.scm
@@ -1,8 +1,8 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/bufwfs.scm,v 1.16 1993/08/09 19:42:49 jawilson Exp $
+;;;	$Id: bufwfs.scm,v 1.17 1993/08/25 05:11:12 cph Exp $
 ;;;
-;;;	Copyright (c) 1986, 1989-91 Massachusetts Institute of Technology
+;;;	Copyright (c) 1986, 1989-93 Massachusetts Institute of Technology
 ;;;
 ;;;	This material was developed by the Scheme project at the
 ;;;	Massachusetts Institute of Technology, Department of
@@ -233,9 +233,8 @@
 				(if (fix:< y yl) yl y)
 				xl* xu
 				(and interval
-				     (interval-property
-				      interval
-				      'highlighted)))))
+				     (interval-property interval
+							'HIGHLIGHTED #f)))))
 		     (let ((fill-line
 			    (lambda (index xl*)
 			      (group-image! group index end-index*