Mercurial > emacs
diff src/intervals.h @ 83080:d4d5e54871ff
Trivial cleanups to get rid of GCC warnings.
src/fontset.c (Fset_fontset_font): Removed unused variables.
src/fringe.c (Ffringe_bitmaps_at_pos): Ditto.
src/xdisp.c (Flookup_image_map, note_mode_line_or_margin_highlight): Ditto.
src/xterm.c (x_detect_focus_change, x_calc_absolute_position): Ditto.
src/intervals.h (compare_string_intervals): New declaration.
src/intervals.h (NULL_INTERVAL_P): Shut up GCC warnings by casting the
left side of the comma expression to void.
src/lisp.h (CHECK): Ditto.
src/keyboard.c (modify_event_symbol): Shut up GCC warning about format
template type mismatch.
git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-120
author | Karoly Lorentey <lorentey@elte.hu> |
---|---|
date | Fri, 19 Mar 2004 23:19:04 +0000 |
parents | 8d8fae1e281a |
children | 3ec251523b3e |
line wrap: on
line diff
--- a/src/intervals.h Fri Mar 19 22:32:48 2004 +0000 +++ b/src/intervals.h Fri Mar 19 23:19:04 2004 +0000 @@ -85,7 +85,7 @@ || STRINGP ((Lisp_Object){(EMACS_INT)(i)})) #endif #define NULL_INTERVAL_P(i) \ - (CHECK (!INT_LISPLIKE (i), "non-interval"), (i) == NULL_INTERVAL) + ((void)CHECK (!INT_LISPLIKE (i), "non-interval"), (i) == NULL_INTERVAL) /* old #define NULL_INTERVAL_P(i) ((i) == NULL_INTERVAL || INT_LISPLIKE (i)) */ /* True if this interval has no right child. */ @@ -289,6 +289,7 @@ 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 s1, Lisp_Object s2)); 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));