Commit 3803eb32 authored by Andreas Schwab's avatar Andreas Schwab
Browse files

(print_preprocess) <case Lisp_Vectorlike>: Only mask

size if PSEUDOVECTOR_FLAG is set.
parent 9f1d9ee4
2004-01-08 Andreas Schwab <schwab@suse.de>
* print.c (print_preprocess) <case Lisp_Vectorlike>: Only mask
size if PSEUDOVECTOR_FLAG is set.
2004-01-07 Kenichi Handa <handa@m17n.org>
* charset.c (Fdeclare_equiv_charset): Fix docstring.
......
......@@ -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;
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment