[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/src/intervals.h [lexbind]
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/src/intervals.h [lexbind] |
Date: |
Thu, 11 Nov 2004 23:43:06 -0500 |
Index: emacs/src/intervals.h
diff -c emacs/src/intervals.h:1.49.2.3 emacs/src/intervals.h:1.49.2.4
*** emacs/src/intervals.h:1.49.2.3 Sun Dec 28 05:19:59 2003
--- emacs/src/intervals.h Fri Nov 12 04:21:15 2004
***************
*** 84,92 ****
--- 84,97 ----
#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,294 ****
--- 294,300 ----
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));
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/src/intervals.h [lexbind],
Miles Bader <=