Mercurial > hg > xemacs-beta
comparison src/extents.c @ 177:6075d714658b r20-3b15
Import from CVS: tag r20-3b15
author | cvs |
---|---|
date | Mon, 13 Aug 2007 09:51:16 +0200 |
parents | 2d532a89d707 |
children | e121b013d1f0 |
comparison
equal
deleted
inserted
replaced
176:6866abce6aaf | 177:6075d714658b |
---|---|
1280 | 1280 |
1281 /* #define SOE_DEBUG */ | 1281 /* #define SOE_DEBUG */ |
1282 | 1282 |
1283 #ifdef SOE_DEBUG | 1283 #ifdef SOE_DEBUG |
1284 | 1284 |
1285 static char *print_extent_1 (char *buf, Lisp_Object extent); | 1285 static void print_extent_1 (char *buf, Lisp_Object extent); |
1286 | 1286 |
1287 static void | 1287 static void |
1288 print_extent_2 (EXTENT e) | 1288 print_extent_2 (EXTENT e) |
1289 { | 1289 { |
1290 Lisp_Object extent; | 1290 Lisp_Object extent; |
2937 ((markobj) (extent_object (extent))); | 2937 ((markobj) (extent_object (extent))); |
2938 ((markobj) (extent_no_chase_normal_field (extent, face))); | 2938 ((markobj) (extent_no_chase_normal_field (extent, face))); |
2939 return extent->plist; | 2939 return extent->plist; |
2940 } | 2940 } |
2941 | 2941 |
2942 static char * | 2942 static void |
2943 print_extent_1 (Lisp_Object obj, Lisp_Object printcharfun, int escapeflag) | 2943 print_extent_1 (Lisp_Object obj, Lisp_Object printcharfun, int escapeflag) |
2944 { | 2944 { |
2945 EXTENT ext = XEXTENT (obj); | 2945 EXTENT ext = XEXTENT (obj); |
2946 EXTENT anc = extent_ancestor (ext); | 2946 EXTENT anc = extent_ancestor (ext); |
2947 Lisp_Object tail; | 2947 Lisp_Object tail; |