Mercurial > hg > xemacs-beta

comparison src/print.c @ 371:cc15677e0335 r21-2b1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2b1
author cvs
date Mon, 13 Aug 2007 11:03:08 +0200
parents 8bec6624d99b
children 8626e4521993
comparison
equal deleted inserted replaced
370:bd866891f083 371:cc15677e0335
1350 GCPRO2 (obj, printcharfun); 1350 GCPRO2 (obj, printcharfun);
1351 1351
1352 /* If we print an uninterned symbol as part of a complex object and 1352 /* If we print an uninterned symbol as part of a complex object and
1353 the flag print-gensym is non-nil, prefix it with #n= to read the 1353 the flag print-gensym is non-nil, prefix it with #n= to read the
1354 object back with the #n# reader syntax later if needed. */ 1354 object back with the #n# reader syntax later if needed. */
1355 if (!NILP (Vprint_gensym) && !(XSYMBOL_OBARRAY_FLAGS (obj) & 2)) 1355 if (!NILP (Vprint_gensym) && NILP (XSYMBOL (obj)->obarray))
1356 { 1356 {
1357 if (print_depth > 1) 1357 if (print_depth > 1)
1358 { 1358 {
1359 Lisp_Object tem = Fassq (obj, Vprint_gensym_alist); 1359 Lisp_Object tem = Fassq (obj, Vprint_gensym_alist);
1360 if (CONSP (tem)) 1360 if (CONSP (tem))