diff options
| author | Karl Heuer <[email protected]> | 1994-09-27 02:30:34 +0000 |
|---|---|---|
| committer | Karl Heuer <[email protected]> | 1994-09-27 02:30:34 +0000 |
| commit | b629dd47e02edba483c2140c5a77b67fed01fe04 (patch) | |
| tree | 2ca5d273921a515a66156953eef138a30986a4b1 /src/intervals.c | |
| parent | 8c18cbfbef6cc23e65d264200536960977d48cc5 (diff) | |
(create_root_interval, balance_possible_root_interval, delete_interval): Use
type test macros.
Diffstat (limited to 'src/intervals.c')
| -rw-r--r-- | src/intervals.c | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/src/intervals.c b/src/intervals.c index 8386eaded5..5ec26e2d30 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 (); |