Mercurial > hg > xemacs-beta

comparison src/extents.c @ 175:2d532a89d707 r20-3b14

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b14
author cvs
date Mon, 13 Aug 2007 09:50:14 +0200
parents 8eaf7971accc
children 6075d714658b
comparison
equal deleted inserted replaced
174:bb3568571b84 175:2d532a89d707
2985 if (NILP (v)) continue; 2985 if (NILP (v)) continue;
2986 print_internal (XCAR (tail), printcharfun, escapeflag); 2986 print_internal (XCAR (tail), printcharfun, escapeflag);
2987 write_c_string (" ", printcharfun); 2987 write_c_string (" ", printcharfun);
2988 } 2988 }
2989 2989
2990 sprintf (buf, "0x%lx", (long) ext); 2990 sprintf (bp, "0x%p", ext);
2991 write_c_string (buf, printcharfun); 2991 write_c_string (buf, printcharfun);
2992 } 2992 }
2993 2993
2994 static void 2994 static void
2995 print_extent (Lisp_Object obj, Lisp_Object printcharfun, int escapeflag) 2995 print_extent (Lisp_Object obj, Lisp_Object printcharfun, int escapeflag)
5721 Lisp_Object parent_in_question; 5721 Lisp_Object parent_in_question;
5722 EXTENT found_extent; 5722 EXTENT found_extent;
5723 }; 5723 };
5724 5724
5725 static int 5725 static int
5726 copy_string_extents_1_mapper (EXTENT extent, void *arg)
5727 {
5728 struct copy_string_extents_1_arg *closure =
5729 (struct copy_string_extents_1_arg *) arg;
5730
5731 return 0;
5732 }
5733
5734 static int
5735 copy_string_extents_mapper (EXTENT extent, void *arg) 5726 copy_string_extents_mapper (EXTENT extent, void *arg)
5736 { 5727 {
5737 struct copy_string_extents_arg *closure = 5728 struct copy_string_extents_arg *closure =
5738 (struct copy_string_extents_arg *) arg; 5729 (struct copy_string_extents_arg *) arg;
5739 Bytecount old_start, old_end; 5730 Bytecount old_start, old_end;