Mercurial > emacs
changeset 37850:c03ac59bab50
(print_preprocess, print_object): Test internedness of
symbols differently.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Mon, 21 May 2001 12:22:16 +0000 |
| parents | 2aa0cab5bd6e |
| children | 3083aa4f6a47 |
| files | src/print.c |
| diffstat | 1 files changed, 8 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/src/print.c Mon May 21 12:21:58 2001 +0000 +++ b/src/print.c Mon May 21 12:22:16 2001 +0000 @@ -1197,7 +1197,8 @@ if (STRINGP (obj) || CONSP (obj) || VECTORP (obj) || COMPILEDP (obj) || CHAR_TABLE_P (obj) || (! NILP (Vprint_gensym) - && SYMBOLP (obj) && NILP (XSYMBOL (obj)->obarray))) + && SYMBOLP (obj) + && !SYMBOL_INTERNED_P (obj))) { /* In case print-circle is nil and print-gensym is t, add OBJ to Vprint_number_table only when OBJ is a symbol. */ @@ -1235,8 +1236,9 @@ /* If Vprint_continuous_numbering is non-nil and OBJ is a gensym, always print the gensym with a number. This is a special for the lisp function byte-compile-output-docform. */ - if (! NILP (Vprint_continuous_numbering) && SYMBOLP (obj) - && NILP (XSYMBOL (obj)->obarray)) + if (!NILP (Vprint_continuous_numbering) + && SYMBOLP (obj) + && !SYMBOL_INTERNED_P (obj)) PRINT_NUMBER_STATUS (Vprint_number_table, print_number_index) = Qt; print_number_index++; } @@ -1288,7 +1290,8 @@ if (STRINGP (obj) || CONSP (obj) || VECTORP (obj) || COMPILEDP (obj) || CHAR_TABLE_P (obj) || (! NILP (Vprint_gensym) - && SYMBOLP (obj) && NILP (XSYMBOL (obj)->obarray))) + && SYMBOLP (obj) + && !SYMBOL_INTERNED_P (obj))) { if (NILP (Vprint_circle) && NILP (Vprint_gensym)) { @@ -1505,7 +1508,7 @@ else confusing = 0; - if (! NILP (Vprint_gensym) && NILP (XSYMBOL (obj)->obarray)) + if (! NILP (Vprint_gensym) && !SYMBOL_INTERNED_P (obj)) { PRINTCHAR ('#'); PRINTCHAR (':');