From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 9 Sep 1993 21:43:12 +0000 (+0000)
Subject: Rename PREV-SPECIFIC-PROPERTY-CHANGE to
X-Git-Tag: 20090517-FFI~7871
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=10fb1f865b4cf4163b632ca29016bc66c3344b32;p=mit-scheme.git

Rename PREV-SPECIFIC-PROPERTY-CHANGE to
PREVIOUS-SPECIFIC-PROPERTY-CHANGE.
---

diff --git a/v7/src/edwin/edwin.pkg b/v7/src/edwin/edwin.pkg
index 896557137..6e3930dd9 100644
--- a/v7/src/edwin/edwin.pkg
+++ b/v7/src/edwin/edwin.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: edwin.pkg,v 1.132 1993/09/09 21:41:39 cph Exp $
+$Id: edwin.pkg,v 1.133 1993/09/09 21:42:13 cph Exp $
 
 Copyright (c) 1989-1993 Massachusetts Institute of Technology
 
@@ -844,8 +844,8 @@ MIT in each case. |#
 	  local-comtabs
 	  next-property-change
 	  next-specific-property-change
-	  prev-specific-property-change
 	  previous-property-change
+	  previous-specific-property-change
 	  remove-text-properties
 	  remove-text-property
 	  set-text-properties)
diff --git a/v7/src/edwin/txtprp.scm b/v7/src/edwin/txtprp.scm
index ae2405436..c129d3e8e 100644
--- a/v7/src/edwin/txtprp.scm
+++ b/v7/src/edwin/txtprp.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: txtprp.scm,v 1.10 1993/09/09 21:41:25 cph Exp $
+;;;	$Id: txtprp.scm,v 1.11 1993/09/09 21:43:12 cph Exp $
 ;;;
 ;;;	Copyright (c) 1993 Massachusetts Institute of Technology
 ;;;
@@ -254,14 +254,15 @@
 		      (loop (next-interval next))
 		      (interval-start next))))))))
 
-(define (next-specific-property-change group index prop)
+(define (next-specific-property-change group index key)
   (validate-point-arguments group index 'NEXT-SPECIFIC-PROPERTY-CHANGE)
+  (validate-symbol-argument key 'NEXT-SPECIFIC-PROPERTY-CHANGE)
   (and (group-text-properties group)
        (let ((z (find-interval group index)))
-	 (let ((p (assq prop (interval-properties z))))
+	 (let ((p (assq key (interval-properties z))))
 	   (let loop ((next (next-interval z)))
 	     (and next
-		  (if (eq? p (assq prop (interval-properties next)))
+		  (if (eq? p (assq key (interval-properties next)))
 		      (loop (next-interval next))
 		      (interval-start next))))))))
 
@@ -276,14 +277,15 @@
 		      (loop (previous-interval prev))
 		      (interval-start prev))))))))
 
-(define (prev-specific-property-change group index prop)
+(define (previous-specific-property-change group index key)
   (validate-point-arguments group index 'PREV-SPECIFIC-PROPERTY-CHANGE)
+  (validate-symbol-argument key 'PREV-SPECIFIC-PROPERTY-CHANGE)
   (and (group-text-properties group)
        (let ((z (find-interval group index)))
-	 (let ((p (assq prop (interval-properties z))))
+	 (let ((p (assq key (interval-properties z))))
 	   (let loop ((prev (previous-interval z)))
 	     (and prev
-		  (if (eq? p (assq prop (interval-properties prev)))
+		  (if (eq? p (assq key (interval-properties prev)))
 		      (loop (previous-interval prev))
 		      (interval-start prev))))))))