From: Andreas Schwab <schwab@suse.de>
Date: Thu, 8 Jan 2004 00:16:25 +0000 (+0000)
Subject: (print_preprocess) <case Lisp_Vectorlike>: Only mask
X-Git-Tag: ttn-vms-21-2-B4~7972
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3803eb324e0c0d74cf153206ad3d7346983e1a92;p=emacs.git

(print_preprocess) <case Lisp_Vectorlike>: Only mask
size if PSEUDOVECTOR_FLAG is set.
---

diff --git a/src/ChangeLog b/src/ChangeLog
index be56024fa04..f42395977c9 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,8 @@
+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.
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;