comparison src/extents.c @ 203:850242ba4a81 r20-3b28

Import from CVS: tag r20-3b28
author cvs
date Mon, 13 Aug 2007 10:02:21 +0200
parents a2f645c6b9f8
children e45d5e7c476e
comparison
equal deleted inserted replaced
202:61eefc8fc970 203:850242ba4a81
2614 Dynarr_free (ef->begin_glyphs); 2614 Dynarr_free (ef->begin_glyphs);
2615 Dynarr_free (ef->end_glyphs); 2615 Dynarr_free (ef->end_glyphs);
2616 xfree (ef); 2616 xfree (ef);
2617 } 2617 }
2618 2618
2619 /* Note: CONST is losing, but `const' is part of the interface of qsort() */
2619 static int 2620 static int
2620 extent_priority_sort_function (const void *humpty, const void *dumpty) 2621 extent_priority_sort_function (const void *humpty, const void *dumpty)
2621 { 2622 {
2622 CONST EXTENT foo = * (CONST EXTENT *) humpty; 2623 CONST EXTENT foo = * (CONST EXTENT *) humpty;
2623 CONST EXTENT bar = * (CONST EXTENT *) dumpty; 2624 CONST EXTENT bar = * (CONST EXTENT *) dumpty;
3004 if (NILP (v)) continue; 3005 if (NILP (v)) continue;
3005 print_internal (XCAR (tail), printcharfun, escapeflag); 3006 print_internal (XCAR (tail), printcharfun, escapeflag);
3006 write_c_string (" ", printcharfun); 3007 write_c_string (" ", printcharfun);
3007 } 3008 }
3008 3009
3009 sprintf (bp, "0x%p", ext); 3010 sprintf (buf, "0x%p", ext);
3010 write_c_string (buf, printcharfun); 3011 write_c_string (buf, printcharfun);
3011 } 3012 }
3012 3013
3013 static void 3014 static void
3014 print_extent (Lisp_Object obj, Lisp_Object printcharfun, int escapeflag) 3015 print_extent (Lisp_Object obj, Lisp_Object printcharfun, int escapeflag)