Mercurial > hg > xemacs-beta

comparison src/print.c @ 343:8bec6624d99b r21-1-1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-1-1
author cvs
date Mon, 13 Aug 2007 10:52:53 +0200
parents 558f606b08ae
children cc15677e0335
comparison
equal deleted inserted replaced
342:b036ce23deaa 343:8bec6624d99b
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) && NILP (XSYMBOL (obj)->obarray)) 1355 if (!NILP (Vprint_gensym) && !(XSYMBOL_OBARRAY_FLAGS (obj) & 2))
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))