diff options
| author | Karl Heuer <kwzh@gnu.org> | 1994-09-27 02:30:34 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1994-09-27 02:30:34 +0000 |
| commit | e4283585ab2862231483a2ba0322d9ec10e4e92a (patch) | |
| tree | 4b6be0dadbb93cef77caac2c41ef2a777ec3a679 /src/intervals.c | |
| parent | 2c96f31cc03cd324344ff09ef776fdc6f5c8e081 (diff) | |
| download | emacs-e4283585ab2862231483a2ba0322d9ec10e4e92a.tar.gz | |
(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 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 (); |