1220 |
register Lisp_Object printcharfun; |
register Lisp_Object printcharfun; |
1221 |
int escapeflag; |
int escapeflag; |
1222 |
{ |
{ |
|
print_depth = 0; |
|
1223 |
old_backquote_output = 0; |
old_backquote_output = 0; |
1224 |
|
|
1225 |
/* Reset print_number_index and Vprint_number_table only when |
/* Reset print_number_index and Vprint_number_table only when |
1239 |
start = index = print_number_index; |
start = index = print_number_index; |
1240 |
/* Construct Vprint_number_table. |
/* Construct Vprint_number_table. |
1241 |
This increments print_number_index for the objects added. */ |
This increments print_number_index for the objects added. */ |
1242 |
|
print_depth = 0; |
1243 |
print_preprocess (obj); |
print_preprocess (obj); |
1244 |
|
|
1245 |
/* Remove unnecessary objects, which appear only once in OBJ; |
/* Remove unnecessary objects, which appear only once in OBJ; |
1264 |
print_number_index = index; |
print_number_index = index; |
1265 |
} |
} |
1266 |
|
|
1267 |
|
print_depth = 0; |
1268 |
print_object (obj, printcharfun, escapeflag); |
print_object (obj, printcharfun, escapeflag); |
1269 |
} |
} |
1270 |
|
|