diff options
author | Karl Heuer <kwzh@gnu.org> | 1994-09-27 03:13:50 +0000 |
---|---|---|
committer | Karl Heuer <kwzh@gnu.org> | 1994-09-27 03:13:50 +0000 |
commit | 0b94eaf121dd4172a30abbfafe6e94c540b1ea69 (patch) | |
tree | 10a8636cd8a61cf751cdfcbca818184408a895c6 /src/intervals.h | |
parent | 5caef586c31c68bc8855fe5d1a225ec585c805ef (diff) | |
download | emacs-0b94eaf121dd4172a30abbfafe6e94c540b1ea69.tar.gz |
(NULL_INTERVAL_P): Use type test macros.
Diffstat (limited to 'src/intervals.h')
-rw-r--r-- | src/intervals.h | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/intervals.h b/src/intervals.h index d0d64261a3e..38671c128f0 100644 --- a/src/intervals.h +++ b/src/intervals.h @@ -36,9 +36,9 @@ the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */ /* True if an interval pointer is null, or is a Lisp_Buffer or Lisp_String pointer (meaning it points to the owner of this interval tree). */ -#define NULL_INTERVAL_P(i) ((i) == NULL_INTERVAL \ - || XTYPE ((Lisp_Object)(i)) == Lisp_Buffer \ - || XTYPE ((Lisp_Object)(i)) == Lisp_String) +#define NULL_INTERVAL_P(i) ((i) == NULL_INTERVAL \ + || BUFFERP ((Lisp_Object)(i)) \ + || STRINGP ((Lisp_Object)(i))) /* True if this interval has no right child. */ #define NULL_RIGHT_CHILD(i) ((i)->right == NULL_INTERVAL) |