* textprop.c (property_change_between_p): Remove; unused.

diff --git a/src/ChangeLog b/src/ChangeLog
index 21475dd6a6adda3f2602eea4be43e99ac2bd0268..65b7bccd79eea4482dd847795ecb29cc5adc11b9 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,5 +1,7 @@
 2011-03-18  Paul Eggert  <eggert@cs.ucla.edu>
 
+       * textprop.c (property_change_between_p): Remove; unused.
+
        * intervals.c (interval_start_pos): Now static.
 
        * intervals.h (CHECK_TOTAL_LENGTH): Avoid empty "else".

diff --git a/src/textprop.c b/src/textprop.c
index 5db6033670b24e538561090320b2a275a14b4506..cd89efeb38d5acf32ae7b80f5367308854a97aef 100644 (file)
--- a/src/textprop.c
+++ b/src/textprop.c
@@ -974,37 +974,6 @@ past position LIMIT; return LIMIT if nothing is found before LIMIT.  */)
     return make_number (next->position);
 }
 
-/* Return 1 if there's a change in some property between BEG and END.  */
-
-int
-property_change_between_p (EMACS_INT beg, EMACS_INT end)
-{
-  register INTERVAL i, next;
-  Lisp_Object object, pos;
-
-  XSETBUFFER (object, current_buffer);
-  XSETFASTINT (pos, beg);
-
-  i = validate_interval_range (object, &pos, &pos, soft);
-  if (NULL_INTERVAL_P (i))
-    return 0;
-
-  next = next_interval (i);
-  while (! NULL_INTERVAL_P (next) && intervals_equal (i, next))
-    {
-      next = next_interval (next);
-      if (NULL_INTERVAL_P (next))
-       return 0;
-      if (next->position >= end)
-       return 0;
-    }
-
-  if (NULL_INTERVAL_P (next))
-    return 0;
-
-  return 1;
-}
-
 DEFUN ("next-single-property-change", Fnext_single_property_change,
        Snext_single_property_change, 2, 4, 0,
        doc: /* Return the position of next property change for a specific property.
@@ -2331,4 +2300,3 @@ inherits it if NONSTICKINESS is nil.  The `front-sticky' and
 /*  defsubr (&Serase_text_properties); */
 /*  defsubr (&Scopy_text_properties); */
 }
-