# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 780633034 0
# Node ID a78f02f76f039f5412e1480353f3be7682f06a5d
# Parent  8ed50a8939e937a62626e548be6edf8776600f91
(create_root_interval, balance_possible_root_interval, delete_interval): Use
type test macros.

diff -r 8ed50a8939e9 -r a78f02f76f03 src/intervals.c
--- a/src/intervals.c	Tue Sep 27 02:28:15 1994 +0000
+++ b/src/intervals.c	Tue Sep 27 02:30:34 1994 +0000
@@ -70,13 +70,13 @@
 
   new = make_interval ();
 
-  if (XTYPE (parent) == Lisp_Buffer)
+  if (BUFFERP (parent))
     {
       new->total_length = (BUF_Z (XBUFFER (parent))
 			   - BUF_BEG (XBUFFER (parent)));
       XBUFFER (parent)->intervals = new;
     }
-  else if (XTYPE (parent) == Lisp_String)
+  else if (STRINGP (parent))
     {
       new->total_length = XSTRING (parent)->size;
       XSTRING (parent)->intervals = new;
@@ -411,9 +411,9 @@
   parent = (Lisp_Object) (interval->parent);
   interval = balance_an_interval (interval);
 
-  if (XTYPE (parent) == Lisp_Buffer)
+  if (BUFFERP (parent))
     XBUFFER (parent)->intervals = interval;
-  else if (XTYPE (parent) == Lisp_String)
+  else if (STRINGP (parent))
     XSTRING (parent)->intervals = interval;
 
   return interval;
@@ -1049,9 +1049,9 @@
       if (! NULL_INTERVAL_P (parent))
 	parent->parent = (INTERVAL) owner;
 
-      if (XTYPE (owner) == Lisp_Buffer)
+      if (BUFFERP (owner))
 	XBUFFER (owner)->intervals = parent;
-      else if (XTYPE (owner) == Lisp_String)
+      else if (STRINGP (owner))
 	XSTRING (owner)->intervals = parent;
       else
 	abort ();