# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 780635630 0
# Node ID d67be35351e5eb01fe6103f35133626dd7b07ffd
# Parent  e309bb9ccdc010e7123af9182d4bd1db8f084f50
(NULL_INTERVAL_P): Use type test macros.

diff -r e309bb9ccdc0 -r d67be35351e5 src/intervals.h
--- a/src/intervals.h	Tue Sep 27 03:13:08 1994 +0000
+++ b/src/intervals.h	Tue Sep 27 03:13:50 1994 +0000
@@ -36,9 +36,9 @@
 /* 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)