Fix bug ref

[gnu-emacs] / src / textprop.c

diff --git a/src/textprop.c b/src/textprop.c
index fb58f8e08084ac587208055918e70af9a7492131..872912ea706f94d24cbf01996a165469aae5dbd1 100644 (file)
--- a/src/textprop.c
+++ b/src/textprop.c
@@ -17,7 +17,7 @@ You should have received a copy of the GNU General Public License
 along with GNU Emacs.  If not, see <http://www.gnu.org/licenses/>.  */
 
 #include <config.h>
 along with GNU Emacs.  If not, see <http://www.gnu.org/licenses/>.  */
 
 #include <config.h>

-#include <setjmp.h>
+

 #include "lisp.h"
 #include "intervals.h"
 #include "character.h"
 #include "lisp.h"
 #include "intervals.h"
 #include "character.h"


@@ -72,9 +72,6 @@ Lisp_Object Qfront_sticky, Qrear_nonsticky;
 static Lisp_Object interval_insert_behind_hooks;
 static Lisp_Object interval_insert_in_front_hooks;
 
 static Lisp_Object interval_insert_behind_hooks;
 static Lisp_Object interval_insert_in_front_hooks;
 

-static Lisp_Object Fprevious_property_change (Lisp_Object, Lisp_Object,
-                                             Lisp_Object);
-

 
 /* Signal a `text-read-only' error.  This function makes it easier
    to capture that error in GDB by putting a breakpoint on it.  */
 
 /* Signal a `text-read-only' error.  This function makes it easier
    to capture that error in GDB by putting a breakpoint on it.  */


@@ -108,7 +105,7 @@ text_read_only (Lisp_Object propval)
    Fprevious_property_change which call this function with BEGIN == END.
    Handle this case specially.
 
    Fprevious_property_change which call this function with BEGIN == END.
    Handle this case specially.
 

-   If FORCE is soft (0), it's OK to return NULL_INTERVAL.  Otherwise,
+   If FORCE is soft (0), it's OK to return NULL.  Otherwise,

    create an interval tree for OBJECT if one doesn't exist, provided
    the object actually contains text.  In the current design, if there
    is no text, there can be no text properties.  */
    create an interval tree for OBJECT if one doesn't exist, provided
    the object actually contains text.  In the current design, if there
    is no text, there can be no text properties.  */


@@ -129,7 +126,7 @@ validate_interval_range (Lisp_Object object, Lisp_Object *begin, Lisp_Object *en
   /* If we are asked for a point, but from a subr which operates
      on a range, then return nothing.  */
   if (EQ (*begin, *end) && begin != end)
   /* If we are asked for a point, but from a subr which operates
      on a range, then return nothing.  */
   if (EQ (*begin, *end) && begin != end)

-    return NULL_INTERVAL;
+    return NULL;

 
   if (XINT (*begin) > XINT (*end))
     {
 
   if (XINT (*begin) > XINT (*end))
     {


@@ -146,11 +143,11 @@ validate_interval_range (Lisp_Object object, Lisp_Object *begin, Lisp_Object *en
       if (!(BUF_BEGV (b) <= XINT (*begin) && XINT (*begin) <= XINT (*end)
            && XINT (*end) <= BUF_ZV (b)))
        args_out_of_range (*begin, *end);
       if (!(BUF_BEGV (b) <= XINT (*begin) && XINT (*begin) <= XINT (*end)
            && XINT (*end) <= BUF_ZV (b)))
        args_out_of_range (*begin, *end);

-      i = BUF_INTERVALS (b);
+      i = buffer_intervals (b);

 
       /* If there's no text, there are no properties.  */
       if (BUF_BEGV (b) == BUF_ZV (b))
 
       /* If there's no text, there are no properties.  */
       if (BUF_BEGV (b) == BUF_ZV (b))

-       return NULL_INTERVAL;
+       return NULL;

 
       searchpos = XINT (*begin);
     }
 
       searchpos = XINT (*begin);
     }


@@ -164,15 +161,15 @@ validate_interval_range (Lisp_Object object, Lisp_Object *begin, Lisp_Object *en
       XSETFASTINT (*begin, XFASTINT (*begin));
       if (begin != end)
        XSETFASTINT (*end, XFASTINT (*end));
       XSETFASTINT (*begin, XFASTINT (*begin));
       if (begin != end)
        XSETFASTINT (*end, XFASTINT (*end));

-      i = STRING_INTERVALS (object);
+      i = string_intervals (object);

 
       if (len == 0)
 
       if (len == 0)

-       return NULL_INTERVAL;
+       return NULL;

 
       searchpos = XINT (*begin);
     }
 
 
       searchpos = XINT (*begin);
     }
 

-  if (NULL_INTERVAL_P (i))
+  if (!i)

     return (force ? create_root_interval (object) : i);
 
   return find_interval (i, searchpos);
     return (force ? create_root_interval (object) : i);
 
   return find_interval (i, searchpos);


@@ -274,7 +271,7 @@ interval_has_some_properties_list (Lisp_Object list, INTERVAL i)
   /* Go through each element of LIST.  */
   for (tail1 = list; CONSP (tail1); tail1 = XCDR (tail1))
     {
   /* Go through each element of LIST.  */
   for (tail1 = list; CONSP (tail1); tail1 = XCDR (tail1))
     {

-      sym = Fcar (tail1);
+      sym = XCAR (tail1);

 
       /* Go through i's plist, looking for tail1 */
       for (tail2 = i->plist; CONSP (tail2); tail2 = XCDR (XCDR (tail2)))
 
       /* Go through i's plist, looking for tail1 */
       for (tail2 = i->plist; CONSP (tail2); tail2 = XCDR (XCDR (tail2)))


@@ -341,7 +338,7 @@ set_properties (Lisp_Object properties, INTERVAL interval, Lisp_Object object)
     }
 
   /* Store new properties.  */
     }
 
   /* Store new properties.  */

-  interval->plist = Fcopy_sequence (properties);
+  set_interval_plist (interval, Fcopy_sequence (properties));

 }
 
 /* Add the properties of PLIST to the interval I, or set
 }
 
 /* Add the properties of PLIST to the interval I, or set


@@ -414,7 +411,7 @@ add_properties (Lisp_Object plist, INTERVAL i, Lisp_Object object)
              record_property_change (i->position, LENGTH (i),
                                      sym1, Qnil, object);
            }
              record_property_change (i->position, LENGTH (i),
                                      sym1, Qnil, object);
            }

-         i->plist = Fcons (sym1, Fcons (val1, i->plist));
+         set_interval_plist (i, Fcons (sym1, Fcons (val1, i->plist)));

          changed++;
        }
     }
          changed++;
        }
     }


@@ -487,24 +484,9 @@ remove_properties (Lisp_Object plist, Lisp_Object list, INTERVAL i, Lisp_Object
     }
 
   if (changed)
     }
 
   if (changed)

-    i->plist = current_plist;
+    set_interval_plist (i, current_plist);

   return changed;
 }
   return changed;
 }

-
-#if 0
-/* Remove all properties from interval I.  Return non-zero
-   if this changes the interval.  */
-
-static inline int
-erase_properties (INTERVAL i)
-{
-  if (NILP (i->plist))
-    return 0;
-
-  i->plist = Qnil;
-  return 1;
-}
-#endif

 \f
 /* Returns the interval of POSITION in OBJECT.
    POSITION is BEG-based.  */
 \f
 /* Returns the interval of POSITION in OBJECT.
    POSITION is BEG-based.  */


@@ -518,7 +500,7 @@ interval_of (ptrdiff_t position, Lisp_Object object)
   if (NILP (object))
     XSETBUFFER (object, current_buffer);
   else if (EQ (object, Qt))
   if (NILP (object))
     XSETBUFFER (object, current_buffer);
   else if (EQ (object, Qt))

-    return NULL_INTERVAL;
+    return NULL;

 
   CHECK_STRING_OR_BUFFER (object);
 
 
   CHECK_STRING_OR_BUFFER (object);
 


@@ -528,19 +510,19 @@ interval_of (ptrdiff_t position, Lisp_Object object)
 
       beg = BUF_BEGV (b);
       end = BUF_ZV (b);
 
       beg = BUF_BEGV (b);
       end = BUF_ZV (b);

-      i = BUF_INTERVALS (b);
+      i = buffer_intervals (b);

     }
   else
     {
       beg = 0;
       end = SCHARS (object);
     }
   else
     {
       beg = 0;
       end = SCHARS (object);

-      i = STRING_INTERVALS (object);
+      i = string_intervals (object);

     }
 
   if (!(beg <= position && position <= end))
     args_out_of_range (make_number (position), make_number (position));
     }
 
   if (!(beg <= position && position <= end))
     args_out_of_range (make_number (position), make_number (position));

-  if (beg == end || NULL_INTERVAL_P (i))
-    return NULL_INTERVAL;
+  if (beg == end || !i)
+    return NULL;

 
   return find_interval (i, position);
 }
 
   return find_interval (i, position);
 }


@@ -560,7 +542,7 @@ If POSITION is at the end of OBJECT, the value is nil.  */)
     XSETBUFFER (object, current_buffer);
 
   i = validate_interval_range (object, &position, &position, soft);
     XSETBUFFER (object, current_buffer);
 
   i = validate_interval_range (object, &position, &position, soft);

-  if (NULL_INTERVAL_P (i))
+  if (!i)

     return Qnil;
   /* If POSITION is at the end of the interval,
      it means it's the end of OBJECT.
     return Qnil;
   /* If POSITION is at the end of the interval,
      it means it's the end of OBJECT.


@@ -574,7 +556,8 @@ If POSITION is at the end of OBJECT, the value is nil.  */)
 
 DEFUN ("get-text-property", Fget_text_property, Sget_text_property, 2, 3, 0,
        doc: /* Return the value of POSITION's property PROP, in OBJECT.
 
 DEFUN ("get-text-property", Fget_text_property, Sget_text_property, 2, 3, 0,
        doc: /* Return the value of POSITION's property PROP, in OBJECT.

-OBJECT is optional and defaults to the current buffer.
+OBJECT should be a buffer or a string; if omitted or nil, it defaults
+to the current buffer.

 If POSITION is at the end of OBJECT, the value is nil.  */)
   (Lisp_Object position, Lisp_Object prop, Lisp_Object object)
 {
 If POSITION is at the end of OBJECT, the value is nil.  */)
   (Lisp_Object position, Lisp_Object prop, Lisp_Object object)
 {


@@ -778,7 +761,7 @@ past position LIMIT; return LIMIT if nothing is found before LIMIT.  */)
 
       if (BUFFERP (object) && current_buffer != XBUFFER (object))
        {
 
       if (BUFFERP (object) && current_buffer != XBUFFER (object))
        {

-         record_unwind_protect (Fset_buffer, Fcurrent_buffer ());
+         record_unwind_current_buffer ();

          Fset_buffer (object);
        }
 
          Fset_buffer (object);
        }
 


@@ -861,7 +844,7 @@ position LIMIT; return LIMIT if nothing is found before reaching LIMIT.  */)
 
       if (BUFFERP (object) && current_buffer != XBUFFER (object))
        {
 
       if (BUFFERP (object) && current_buffer != XBUFFER (object))
        {

-         record_unwind_protect (Fset_buffer, Fcurrent_buffer ());
+         record_unwind_current_buffer ();

          Fset_buffer (object);
        }
 
          Fset_buffer (object);
        }
 


@@ -940,12 +923,12 @@ past position LIMIT; return LIMIT if nothing is found before LIMIT.  */)
      bother checking further intervals.  */
   if (EQ (limit, Qt))
     {
      bother checking further intervals.  */
   if (EQ (limit, Qt))
     {

-      if (NULL_INTERVAL_P (i))
+      if (!i)

        next = i;
       else
        next = next_interval (i);
 
        next = i;
       else
        next = next_interval (i);
 

-      if (NULL_INTERVAL_P (next))
+      if (!next)

        XSETFASTINT (position, (STRINGP (object)
                                ? SCHARS (object)
                                : BUF_ZV (XBUFFER (object))));
        XSETFASTINT (position, (STRINGP (object)
                                ? SCHARS (object)
                                : BUF_ZV (XBUFFER (object))));


@@ -954,16 +937,16 @@ past position LIMIT; return LIMIT if nothing is found before LIMIT.  */)
       return position;
     }
 
       return position;
     }
 

-  if (NULL_INTERVAL_P (i))
+  if (!i)

     return limit;
 
   next = next_interval (i);
 
     return limit;
 
   next = next_interval (i);
 

-  while (!NULL_INTERVAL_P (next) && intervals_equal (i, next)
+  while (next && intervals_equal (i, next)

         && (NILP (limit) || next->position < XFASTINT (limit)))
     next = next_interval (next);
 
         && (NILP (limit) || next->position < XFASTINT (limit)))
     next = next_interval (next);
 

-  if (NULL_INTERVAL_P (next)
+  if (!next

       || (next->position
          >= (INTEGERP (limit)
              ? XFASTINT (limit)
       || (next->position
          >= (INTEGERP (limit)
              ? XFASTINT (limit)


@@ -1001,17 +984,17 @@ past position LIMIT; return LIMIT if nothing is found before LIMIT.  */)
     CHECK_NUMBER_COERCE_MARKER (limit);
 
   i = validate_interval_range (object, &position, &position, soft);
     CHECK_NUMBER_COERCE_MARKER (limit);
 
   i = validate_interval_range (object, &position, &position, soft);

-  if (NULL_INTERVAL_P (i))
+  if (!i)

     return limit;
 
   here_val = textget (i->plist, prop);
   next = next_interval (i);
     return limit;
 
   here_val = textget (i->plist, prop);
   next = next_interval (i);

-  while (! NULL_INTERVAL_P (next)
+  while (next

         && EQ (here_val, textget (next->plist, prop))
         && (NILP (limit) || next->position < XFASTINT (limit)))
     next = next_interval (next);
 
         && EQ (here_val, textget (next->plist, prop))
         && (NILP (limit) || next->position < XFASTINT (limit)))
     next = next_interval (next);
 

-  if (NULL_INTERVAL_P (next)
+  if (!next

       || (next->position
          >= (INTEGERP (limit)
              ? XFASTINT (limit)
       || (next->position
          >= (INTEGERP (limit)
              ? XFASTINT (limit)


@@ -1047,7 +1030,7 @@ back past position LIMIT; return LIMIT if nothing is found until LIMIT.  */)
     CHECK_NUMBER_COERCE_MARKER (limit);
 
   i = validate_interval_range (object, &position, &position, soft);
     CHECK_NUMBER_COERCE_MARKER (limit);
 
   i = validate_interval_range (object, &position, &position, soft);

-  if (NULL_INTERVAL_P (i))
+  if (!i)

     return limit;
 
   /* Start with the interval containing the char before point.  */
     return limit;
 
   /* Start with the interval containing the char before point.  */


@@ -1055,12 +1038,12 @@ back past position LIMIT; return LIMIT if nothing is found until LIMIT.  */)
     i = previous_interval (i);
 
   previous = previous_interval (i);
     i = previous_interval (i);
 
   previous = previous_interval (i);

-  while (!NULL_INTERVAL_P (previous) && intervals_equal (previous, i)
+  while (previous && intervals_equal (previous, i)

         && (NILP (limit)
             || (previous->position + LENGTH (previous) > XFASTINT (limit))))
     previous = previous_interval (previous);
 
         && (NILP (limit)
             || (previous->position + LENGTH (previous) > XFASTINT (limit))))
     previous = previous_interval (previous);
 

-  if (NULL_INTERVAL_P (previous)
+  if (!previous

       || (previous->position + LENGTH (previous)
          <= (INTEGERP (limit)
              ? XFASTINT (limit)
       || (previous->position + LENGTH (previous)
          <= (INTEGERP (limit)
              ? XFASTINT (limit)


@@ -1098,21 +1081,21 @@ back past position LIMIT; return LIMIT if nothing is found until LIMIT.  */)
   i = validate_interval_range (object, &position, &position, soft);
 
   /* Start with the interval containing the char before point.  */
   i = validate_interval_range (object, &position, &position, soft);
 
   /* Start with the interval containing the char before point.  */

-  if (!NULL_INTERVAL_P (i) && i->position == XFASTINT (position))
+  if (i && i->position == XFASTINT (position))

     i = previous_interval (i);
 
     i = previous_interval (i);
 

-  if (NULL_INTERVAL_P (i))
+  if (!i)

     return limit;
 
   here_val = textget (i->plist, prop);
   previous = previous_interval (i);
     return limit;
 
   here_val = textget (i->plist, prop);
   previous = previous_interval (i);

-  while (!NULL_INTERVAL_P (previous)
+  while (previous

         && EQ (here_val, textget (previous->plist, prop))
         && (NILP (limit)
             || (previous->position + LENGTH (previous) > XFASTINT (limit))))
     previous = previous_interval (previous);
 
         && EQ (here_val, textget (previous->plist, prop))
         && (NILP (limit)
             || (previous->position + LENGTH (previous) > XFASTINT (limit))))
     previous = previous_interval (previous);
 

-  if (NULL_INTERVAL_P (previous)
+  if (!previous

       || (previous->position + LENGTH (previous)
          <= (INTEGERP (limit)
              ? XFASTINT (limit)
       || (previous->position + LENGTH (previous)
          <= (INTEGERP (limit)
              ? XFASTINT (limit)


@@ -1148,7 +1131,7 @@ Return t if any property value actually changed, nil otherwise.  */)
     XSETBUFFER (object, current_buffer);
 
   i = validate_interval_range (object, &start, &end, hard);
     XSETBUFFER (object, current_buffer);
 
   i = validate_interval_range (object, &start, &end, hard);

-  if (NULL_INTERVAL_P (i))
+  if (!i)

     return Qnil;
 
   s = XINT (start);
     return Qnil;
 
   s = XINT (start);


@@ -1186,8 +1169,7 @@ Return t if any property value actually changed, nil otherwise.  */)
   /* We are at the beginning of interval I, with LEN chars to scan.  */
   for (;;)
     {
   /* We are at the beginning of interval I, with LEN chars to scan.  */
   for (;;)
     {

-      if (i == 0)
-       abort ();
+      eassert (i != 0);

 
       if (LENGTH (i) >= len)
        {
 
       if (LENGTH (i) >= len)
        {


@@ -1293,16 +1275,16 @@ set_text_properties (Lisp_Object start, Lisp_Object end, Lisp_Object properties,
       && XFASTINT (start) == 0
       && XFASTINT (end) == SCHARS (object))
     {
       && XFASTINT (start) == 0
       && XFASTINT (end) == SCHARS (object))
     {

-      if (! STRING_INTERVALS (object))
+      if (!string_intervals (object))

        return Qnil;
 
        return Qnil;
 

-      STRING_SET_INTERVALS (object, NULL_INTERVAL);
+      set_string_intervals (object, NULL);

       return Qt;
     }
 
   i = validate_interval_range (object, &start, &end, soft);
 
       return Qt;
     }
 
   i = validate_interval_range (object, &start, &end, soft);
 

-  if (NULL_INTERVAL_P (i))
+  if (!i)

     {
       /* If buffer has no properties, and we want none, return now.  */
       if (NILP (properties))
     {
       /* If buffer has no properties, and we want none, return now.  */
       if (NILP (properties))


@@ -1315,7 +1297,7 @@ set_text_properties (Lisp_Object start, Lisp_Object end, Lisp_Object properties,
 
       i = validate_interval_range (object, &start, &end, hard);
       /* This can return if start == end.  */
 
       i = validate_interval_range (object, &start, &end, hard);
       /* This can return if start == end.  */

-      if (NULL_INTERVAL_P (i))
+      if (!i)

        return Qnil;
     }
 
        return Qnil;
     }
 


@@ -1340,7 +1322,7 @@ set_text_properties (Lisp_Object start, Lisp_Object end, Lisp_Object properties,
 void
 set_text_properties_1 (Lisp_Object start, Lisp_Object end, Lisp_Object properties, Lisp_Object buffer, INTERVAL i)
 {
 void
 set_text_properties_1 (Lisp_Object start, Lisp_Object end, Lisp_Object properties, Lisp_Object buffer, INTERVAL i)
 {

-  register INTERVAL prev_changed = NULL_INTERVAL;
+  register INTERVAL prev_changed = NULL;

   register ptrdiff_t s, len;
   INTERVAL unchanged;
 
   register ptrdiff_t s, len;
   INTERVAL unchanged;
 


@@ -1357,8 +1339,8 @@ set_text_properties_1 (Lisp_Object start, Lisp_Object end, Lisp_Object propertie
   else
     return;
 
   else
     return;
 

-  if (i == 0)
-    i = find_interval (BUF_INTERVALS (XBUFFER (buffer)), s);
+  if (i == NULL)
+    i = find_interval (buffer_intervals (XBUFFER (buffer)), s);

 
   if (i->position != s)
     {
 
   if (i->position != s)
     {


@@ -1386,8 +1368,7 @@ set_text_properties_1 (Lisp_Object start, Lisp_Object end, Lisp_Object propertie
   /* We are starting at the beginning of an interval I.  LEN is positive.  */
   do
     {
   /* We are starting at the beginning of an interval I.  LEN is positive.  */
   do
     {

-      if (i == 0)
-       abort ();
+      eassert (i != 0);

 
       if (LENGTH (i) >= len)
        {
 
       if (LENGTH (i) >= len)
        {


@@ -1398,7 +1379,7 @@ set_text_properties_1 (Lisp_Object start, Lisp_Object end, Lisp_Object propertie
             merge the intervals, so as to make the undo records
             and cause redisplay to happen.  */
          set_properties (properties, i, buffer);
             merge the intervals, so as to make the undo records
             and cause redisplay to happen.  */
          set_properties (properties, i, buffer);

-         if (!NULL_INTERVAL_P (prev_changed))
+         if (prev_changed)

            merge_interval_left (i);
          return;
        }
            merge_interval_left (i);
          return;
        }


@@ -1409,7 +1390,7 @@ set_text_properties_1 (Lisp_Object start, Lisp_Object end, Lisp_Object propertie
         merge the intervals, so as to make the undo records
         and cause redisplay to happen.  */
       set_properties (properties, i, buffer);
         merge the intervals, so as to make the undo records
         and cause redisplay to happen.  */
       set_properties (properties, i, buffer);

-      if (NULL_INTERVAL_P (prev_changed))
+      if (!prev_changed)

        prev_changed = i;
       else
        prev_changed = i = merge_interval_left (i);
        prev_changed = i;
       else
        prev_changed = i = merge_interval_left (i);


@@ -1441,7 +1422,7 @@ Use `set-text-properties' if you want to remove all text properties.  */)
     XSETBUFFER (object, current_buffer);
 
   i = validate_interval_range (object, &start, &end, soft);
     XSETBUFFER (object, current_buffer);
 
   i = validate_interval_range (object, &start, &end, soft);

-  if (NULL_INTERVAL_P (i))
+  if (!i)

     return Qnil;
 
   s = XINT (start);
     return Qnil;
 
   s = XINT (start);


@@ -1475,8 +1456,7 @@ Use `set-text-properties' if you want to remove all text properties.  */)
   /* We are at the beginning of an interval, with len to scan */
   for (;;)
     {
   /* We are at the beginning of an interval, with len to scan */
   for (;;)
     {

-      if (i == 0)
-       abort ();
+      eassert (i != 0);

 
       if (LENGTH (i) >= len)
        {
 
       if (LENGTH (i) >= len)
        {


@@ -1529,7 +1509,7 @@ Return t if any property was actually removed, nil otherwise.  */)
     XSETBUFFER (object, current_buffer);
 
   i = validate_interval_range (object, &start, &end, soft);
     XSETBUFFER (object, current_buffer);
 
   i = validate_interval_range (object, &start, &end, soft);

-  if (NULL_INTERVAL_P (i))
+  if (!i)

     return Qnil;
 
   s = XINT (start);
     return Qnil;
 
   s = XINT (start);


@@ -1565,8 +1545,7 @@ Return t if any property was actually removed, nil otherwise.  */)
      and we call signal_after_change before returning if modified != 0. */
   for (;;)
     {
      and we call signal_after_change before returning if modified != 0. */
   for (;;)
     {

-      if (i == 0)
-       abort ();
+      eassert (i != 0);

 
       if (LENGTH (i) >= len)
        {
 
       if (LENGTH (i) >= len)
        {


@@ -1635,11 +1614,11 @@ markers).  If OBJECT is a string, START and END are 0-based indices into it.  */
   if (NILP (object))
     XSETBUFFER (object, current_buffer);
   i = validate_interval_range (object, &start, &end, soft);
   if (NILP (object))
     XSETBUFFER (object, current_buffer);
   i = validate_interval_range (object, &start, &end, soft);

-  if (NULL_INTERVAL_P (i))
+  if (!i)

     return (!NILP (value) || EQ (start, end) ? Qnil : start);
   e = XINT (end);
 
     return (!NILP (value) || EQ (start, end) ? Qnil : start);
   e = XINT (end);
 

-  while (! NULL_INTERVAL_P (i))
+  while (i)

     {
       if (i->position >= e)
        break;
     {
       if (i->position >= e)
        break;


@@ -1671,12 +1650,12 @@ markers).  If OBJECT is a string, START and END are 0-based indices into it.  */
   if (NILP (object))
     XSETBUFFER (object, current_buffer);
   i = validate_interval_range (object, &start, &end, soft);
   if (NILP (object))
     XSETBUFFER (object, current_buffer);
   i = validate_interval_range (object, &start, &end, soft);

-  if (NULL_INTERVAL_P (i))
+  if (!i)

     return (NILP (value) || EQ (start, end)) ? Qnil : start;
   s = XINT (start);
   e = XINT (end);
 
     return (NILP (value) || EQ (start, end)) ? Qnil : start;
   s = XINT (start);
   e = XINT (end);
 

-  while (! NULL_INTERVAL_P (i))
+  while (i)

     {
       if (i->position >= e)
        break;
     {
       if (i->position >= e)
        break;


@@ -1781,7 +1760,7 @@ copy_text_properties (Lisp_Object start, Lisp_Object end, Lisp_Object src, Lisp_
   struct gcpro gcpro1, gcpro2;
 
   i = validate_interval_range (src, &start, &end, soft);
   struct gcpro gcpro1, gcpro2;
 
   i = validate_interval_range (src, &start, &end, soft);

-  if (NULL_INTERVAL_P (i))
+  if (!i)

     return Qnil;
 
   CHECK_NUMBER_COERCE_MARKER (pos);
     return Qnil;
 
   CHECK_NUMBER_COERCE_MARKER (pos);


@@ -1833,7 +1812,7 @@ copy_text_properties (Lisp_Object start, Lisp_Object end, Lisp_Object src, Lisp_
        }
 
       i = next_interval (i);
        }
 
       i = next_interval (i);

-      if (NULL_INTERVAL_P (i))
+      if (!i)

        break;
 
       p += len;
        break;
 
       p += len;


@@ -1874,7 +1853,7 @@ text_property_list (Lisp_Object object, Lisp_Object start, Lisp_Object end, Lisp
   result = Qnil;
 
   i = validate_interval_range (object, &start, &end, soft);
   result = Qnil;
 
   i = validate_interval_range (object, &start, &end, soft);

-  if (!NULL_INTERVAL_P (i))
+  if (i)

     {
       ptrdiff_t s = XINT (start);
       ptrdiff_t e = XINT (end);
     {
       ptrdiff_t s = XINT (start);
       ptrdiff_t e = XINT (end);


@@ -1906,7 +1885,7 @@ text_property_list (Lisp_Object object, Lisp_Object start, Lisp_Object end, Lisp
                            result);
 
          i = next_interval (i);
                            result);
 
          i = next_interval (i);

-         if (NULL_INTERVAL_P (i))
+         if (!i)

            break;
          s = i->position;
        }
            break;
          s = i->position;
        }


@@ -2015,10 +1994,10 @@ void
 verify_interval_modification (struct buffer *buf,
                              ptrdiff_t start, ptrdiff_t end)
 {
 verify_interval_modification (struct buffer *buf,
                              ptrdiff_t start, ptrdiff_t end)
 {

-  register INTERVAL intervals = BUF_INTERVALS (buf);
-  register INTERVAL i;
+  INTERVAL intervals = buffer_intervals (buf);
+  INTERVAL i;

   Lisp_Object hooks;
   Lisp_Object hooks;

-  register Lisp_Object prev_mod_hooks;
+  Lisp_Object prev_mod_hooks;

   Lisp_Object mod_hooks;
   struct gcpro gcpro1;
 
   Lisp_Object mod_hooks;
   struct gcpro gcpro1;
 


@@ -2029,7 +2008,7 @@ verify_interval_modification (struct buffer *buf,
   interval_insert_behind_hooks = Qnil;
   interval_insert_in_front_hooks = Qnil;
 
   interval_insert_behind_hooks = Qnil;
   interval_insert_in_front_hooks = Qnil;
 

-  if (NULL_INTERVAL_P (intervals))
+  if (!intervals)

     return;
 
   if (start > end)
     return;
 
   if (start > end)


@@ -2070,7 +2049,7 @@ verify_interval_modification (struct buffer *buf,
             indirectly defined via the category property.  */
          if (i != prev)
            {
             indirectly defined via the category property.  */
          if (i != prev)
            {

-             if (! NULL_INTERVAL_P (i))
+             if (i)

                {
                  after = textget (i->plist, Qread_only);
 
                {
                  after = textget (i->plist, Qread_only);
 


@@ -2090,7 +2069,7 @@ verify_interval_modification (struct buffer *buf,
                    }
                }
 
                    }
                }
 

-             if (! NULL_INTERVAL_P (prev))
+             if (prev)

                {
                  before = textget (prev->plist, Qread_only);
 
                {
                  before = textget (prev->plist, Qread_only);
 


@@ -2110,7 +2089,7 @@ verify_interval_modification (struct buffer *buf,
                    }
                }
            }
                    }
                }
            }

-         else if (! NULL_INTERVAL_P (i))
+         else if (i)

            {
              after = textget (i->plist, Qread_only);
 
            {
              after = textget (i->plist, Qread_only);
 


@@ -2137,10 +2116,10 @@ verify_interval_modification (struct buffer *buf,
        }
 
       /* Run both insert hooks (just once if they're the same).  */
        }
 
       /* Run both insert hooks (just once if they're the same).  */

-      if (!NULL_INTERVAL_P (prev))
+      if (prev)

        interval_insert_behind_hooks
          = textget (prev->plist, Qinsert_behind_hooks);
        interval_insert_behind_hooks
          = textget (prev->plist, Qinsert_behind_hooks);

-      if (!NULL_INTERVAL_P (i))
+      if (i)

        interval_insert_in_front_hooks
          = textget (i->plist, Qinsert_in_front_hooks);
     }
        interval_insert_in_front_hooks
          = textget (i->plist, Qinsert_in_front_hooks);
     }


@@ -2168,7 +2147,7 @@ verify_interval_modification (struct buffer *buf,
          i = next_interval (i);
        }
       /* Keep going thru the interval containing the char before END.  */
          i = next_interval (i);
        }
       /* Keep going thru the interval containing the char before END.  */

-      while (! NULL_INTERVAL_P (i) && i->position < end);
+      while (i && i->position < end);

 
       if (!inhibit_modification_hooks)
        {
 
       if (!inhibit_modification_hooks)
        {