diff options
| author | Andreas Schwab <schwab@suse.de> | 2004-01-08 00:15:52 +0000 |
|---|---|---|
| committer | Andreas Schwab <schwab@suse.de> | 2004-01-08 00:15:52 +0000 |
| commit | e6ba2c79d96c467347d406cb52c1d6213722d7e2 (patch) | |
| tree | f985331b176cae6da864fc40f471568479cbf91e /src/print.c | |
| parent | da75b7771928e18c97233b3b64dd23d4269d98d7 (diff) | |
| download | emacs-e6ba2c79d96c467347d406cb52c1d6213722d7e2.tar.gz | |
(print_preprocess) <case Lisp_Vectorlike>: Only mask
size if PSEUDOVECTOR_FLAG is set.
Diffstat (limited to 'src/print.c')
| -rw-r--r-- | src/print.c | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/print.c b/src/print.c index 3069f732829..597345c129c 100644 --- a/src/print.c +++ b/src/print.c @@ -1342,7 +1342,9 @@ print_preprocess (obj) 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; |