Mercurial > emacs

comparison src/print.c @ 89997:c9046301e28b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(print_object): Include sub char-table in cicularities detection.
author Kenichi Handa <handa@m17n.org>
date Mon, 04 Oct 2004 01:19:47 +0000
parents b9eee0a7bef5
children cb7f41387eb3
comparison
equal deleted inserted replaced
89996:d13df8a735d7 89997:c9046301e28b
1492 1492
1493 QUIT; 1493 QUIT;
1494 1494
1495 /* Detect circularities and truncate them. */ 1495 /* Detect circularities and truncate them. */
1496 if (STRINGP (obj) || CONSP (obj) || VECTORP (obj) 1496 if (STRINGP (obj) || CONSP (obj) || VECTORP (obj)
1497 || COMPILEDP (obj) || CHAR_TABLE_P (obj) 1497 || COMPILEDP (obj) || CHAR_TABLE_P (obj) || SUB_CHAR_TABLE_P (obj)
1498 || (! NILP (Vprint_gensym) 1498 || (! NILP (Vprint_gensym)
1499 && SYMBOLP (obj) 1499 && SYMBOLP (obj)
1500 && !SYMBOL_INTERNED_P (obj))) 1500 && !SYMBOL_INTERNED_P (obj)))
1501 { 1501 {
1502 if (NILP (Vprint_circle) && NILP (Vprint_gensym)) 1502 if (NILP (Vprint_circle) && NILP (Vprint_gensym))