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 | 693f8fb080186e4cdb30ed1d2856d7baf902bc78 (patch) | |
| tree | 1b518c9bb393a6c39b152b8f7811b606bd21b601 /src/intervals.h | |
| parent | 4a2fb8bd2b21cf11d08a9585f3d72a61831f6240 (diff) | |
| download | emacs-693f8fb080186e4cdb30ed1d2856d7baf902bc78.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) |