From b629dd47e02edba483c2140c5a77b67fed01fe04 Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Tue, 27 Sep 1994 02:30:34 +0000 Subject: [PATCH] (create_root_interval, balance_possible_root_interval, delete_interval): Use type test macros. --- src/intervals.c | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/src/intervals.c b/src/intervals.c index 8386eaded5a..5ec26e2d301 100644 --- a/src/intervals.c +++ b/src/intervals.c @@ -70,13 +70,13 @@ create_root_interval (parent) 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 @@ balance_possible_root_interval (interval) 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 @@ delete_interval (i) 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 (); -- 2.39.5