diff options
| author | Karl Heuer | 1994-09-27 03:13:50 +0000 |
|---|---|---|
| committer | Karl Heuer | 1994-09-27 03:13:50 +0000 |
| commit | 693f8fb080186e4cdb30ed1d2856d7baf902bc78 (patch) | |
| tree | 1b518c9bb393a6c39b152b8f7811b606bd21b601 | |
| parent | 4a2fb8bd2b21cf11d08a9585f3d72a61831f6240 (diff) | |
| download | emacs-693f8fb080186e4cdb30ed1d2856d7baf902bc78.tar.gz emacs-693f8fb080186e4cdb30ed1d2856d7baf902bc78.zip | |
(NULL_INTERVAL_P): Use type test macros.
| -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. */ | |||
| 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) |