From: Paul Eggert <eggert@cs.ucla.edu>
Date: Fri, 18 Mar 2011 16:42:05 +0000 (-0700)
Subject: * textprop.c (property_change_between_p): Remove; unused.
X-Git-Tag: emacs-pretest-24.0.90~104^2~275^2~513^2~47
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ff08eb8560405630be43c0543aa5558ed0fe6cbf;p=emacs.git

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

diff --git a/src/ChangeLog b/src/ChangeLog
index 21475dd6a6a..65b7bccd79e 100644
--- 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 5db6033670b..cd89efeb38d 100644
--- 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); */
 }
-