diff options
author | Kim F. Storm <storm@cua.dk> | 2004-11-09 13:23:42 +0000 |
---|---|---|
committer | Kim F. Storm <storm@cua.dk> | 2004-11-09 13:23:42 +0000 |
commit | 0864db90f331ce35252b336da5d647c143df9865 (patch) | |
tree | 7b3766bc6a2fb74872cb42f47c6dc4710fd51d8b /src/intervals.h | |
parent | 4b3003ffc55b11e7aa39318655db5c65c16ac1a4 (diff) | |
download | emacs-0864db90f331ce35252b336da5d647c143df9865.tar.gz |
(NULL_INTERVAL_P): Add separate version when
ENABLE_CHECKING is not defined to silence compiler.
(compare_string_intervals): Add prototype.
Diffstat (limited to 'src/intervals.h')
-rw-r--r-- | src/intervals.h | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/src/intervals.h b/src/intervals.h index 060731be64e..1c9a4708bdb 100644 --- a/src/intervals.h +++ b/src/intervals.h @@ -84,9 +84,14 @@ struct interval #define INT_LISPLIKE(i) (BUFFERP ((Lisp_Object){(EMACS_INT)(i)}) \ || STRINGP ((Lisp_Object){(EMACS_INT)(i)})) #endif + +#ifdef ENABLE_CHECKING #define NULL_INTERVAL_P(i) \ (CHECK (!INT_LISPLIKE (i), "non-interval"), (i) == NULL_INTERVAL) /* old #define NULL_INTERVAL_P(i) ((i) == NULL_INTERVAL || INT_LISPLIKE (i)) */ +#else +#define NULL_INTERVAL_P(i) ((i) == NULL_INTERVAL) +#endif /* True if this interval has no right child. */ #define NULL_RIGHT_CHILD(i) ((i)->right == NULL_INTERVAL) @@ -289,6 +294,7 @@ extern INTERVAL balance_intervals P_ ((INTERVAL)); extern INLINE void copy_intervals_to_string P_ ((Lisp_Object, struct buffer *, int, int)); extern INTERVAL copy_intervals P_ ((INTERVAL, int, int)); +extern int compare_string_intervals P_ ((Lisp_Object, Lisp_Object)); extern Lisp_Object textget P_ ((Lisp_Object, Lisp_Object)); extern Lisp_Object lookup_char_property P_ ((Lisp_Object, Lisp_Object, int)); extern void move_if_not_intangible P_ ((int)); |