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 89655713727b1def2003481cc390dffe97b51fad..6e3930dd9331e2fbb1ad180488c9b369f9fa56c4 100644 (file)
--- 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 ae2405436e4c0f1e2877b7bbfc4562af98fe2d5e..c129d3e8e6f2050a02bc842da89c175e041afc17 100644 (file)
--- 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))))))))
 \f