diff src/intervals.c @ 9125:a78f02f76f03

(create_root_interval, balance_possible_root_interval, delete_interval): Use type test macros.
author Karl Heuer <kwzh@gnu.org>
date Tue, 27 Sep 1994 02:30:34 +0000
parents 21517199cfae
children 1971a6a8cdc0
line wrap: on
line diff
--- 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 ();