Mercurial > hg > xemacs-beta

comparison src/print.c @ 251:677f6a0ee643 r20-5b24

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-5b24
author cvs
date Mon, 13 Aug 2007 10:19:59 +0200
parents 51092a27c943
children c5d627a313b1
comparison
equal deleted inserted replaced
250:f385a461c9aa 251:677f6a0ee643
1359 return; 1359 return;
1360 } 1360 }
1361 else 1361 else
1362 { 1362 {
1363 if (CONSP (Vprint_gensym_alist)) 1363 if (CONSP (Vprint_gensym_alist))
1364 XSETINT (tem, XINT (XCDR (XCAR (Vprint_gensym_alist))) + 1); 1364 {
1365 /* Vprint_gensym_alist is exposed to Lisp, so we
1366 have to be careful. */
1367 CHECK_CONS (XCAR (Vprint_gensym_alist));
1368 CHECK_INT (XCDR (XCAR (Vprint_gensym_alist)));
1369 XSETINT (tem, XINT (XCDR (XCAR (Vprint_gensym_alist))) + 1);
1370 }
1365 else 1371 else
1366 XSETINT (tem, 1); 1372 XSETINT (tem, 1);
1367 Vprint_gensym_alist = Fcons (Fcons (obj, tem), Vprint_gensym_alist); 1373 Vprint_gensym_alist = Fcons (Fcons (obj, tem), Vprint_gensym_alist);
1368 1374
1369 write_char_internal ("#", printcharfun); 1375 write_char_internal ("#", printcharfun);