Mercurial > emacs

comparison src/intervals.h @ 9142:d67be35351e5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(NULL_INTERVAL_P): Use type test macros.
author Karl Heuer <kwzh@gnu.org>
date Tue, 27 Sep 1994 03:13:50 +0000
parents 7327513b377b
children 3fc246695491
comparison
equal deleted inserted replaced
9141:e309bb9ccdc0 9142:d67be35351e5
34 #define INTERVAL_PTR_SIZE (sizeof (struct interval *)) 34 #define INTERVAL_PTR_SIZE (sizeof (struct interval *))
35 35
36 /* True if an interval pointer is null, or is a Lisp_Buffer or 36 /* True if an interval pointer is null, or is a Lisp_Buffer or
37 Lisp_String pointer (meaning it points to the owner of this 37 Lisp_String pointer (meaning it points to the owner of this
38 interval tree). */ 38 interval tree). */
39 #define NULL_INTERVAL_P(i) ((i) == NULL_INTERVAL \ 39 #define NULL_INTERVAL_P(i) ((i) == NULL_INTERVAL \
40 || XTYPE ((Lisp_Object)(i)) == Lisp_Buffer \ 40 || BUFFERP ((Lisp_Object)(i)) \
41 || XTYPE ((Lisp_Object)(i)) == Lisp_String) 41 || STRINGP ((Lisp_Object)(i)))
42 42
43 /* True if this interval has no right child. */ 43 /* True if this interval has no right child. */
44 #define NULL_RIGHT_CHILD(i) ((i)->right == NULL_INTERVAL) 44 #define NULL_RIGHT_CHILD(i) ((i)->right == NULL_INTERVAL)
45 45
46 /* True if this interval has no left child. */ 46 /* True if this interval has no left child. */