Mercurial > emacs
changeset 53537:c8f34cd38fd0
(print_preprocess) <case Lisp_Vectorlike>: Only mask
size if PSEUDOVECTOR_FLAG is set.
| author | Andreas Schwab <schwab@suse.de> |
|---|---|
| date | Thu, 08 Jan 2004 00:15:52 +0000 |
| parents | 479dc1181cb1 |
| children | bc022067e042 |
| files | src/print.c |
| diffstat | 1 files changed, 3 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/src/print.c Wed Jan 07 23:22:34 2004 +0000 +++ b/src/print.c Thu Jan 08 00:15:52 2004 +0000 @@ -1342,7 +1342,9 @@ goto loop; case Lisp_Vectorlike: - size = XVECTOR (obj)->size & PSEUDOVECTOR_SIZE_MASK; + size = XVECTOR (obj)->size; + if (size & PSEUDOVECTOR_FLAG) + size &= PSEUDOVECTOR_SIZE_MASK; for (i = 0; i < size; i++) print_preprocess (XVECTOR (obj)->contents[i]); break;