# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 836029214 0
# Node ID e47df82909ff64e4f867564ae1acaab88024d981
# Parent  335159567eb8a3c3bdfd43235f417562cb99f4e1
(print): Obey Vprint_length for vectors, bitvectors.

diff -r 335159567eb8 -r e47df82909ff src/print.c
--- a/src/print.c	Sat Jun 29 05:04:29 1996 +0000
+++ b/src/print.c	Sat Jun 29 06:20:14 1996 +0000
@@ -1026,6 +1026,12 @@
 	  sprintf (buf, "%d", XBOOL_VECTOR (obj)->size);
 	  strout (buf, -1, printcharfun);
 	  PRINTCHAR ('\"');
+
+	  /* Don't print more characters than the specified maximum.  */
+	  if (INTEGERP (Vprint_length)
+	      && XINT (Vprint_length) < size_in_chars)
+	    size_in_chars = XINT (Vprint_length);
+
 	  for (i = 0; i < size_in_chars; i++)
 	    {
 	      QUIT;
@@ -1124,6 +1130,12 @@
 	  {
 	    register int i;
 	    register Lisp_Object tem;
+
+	    /* Don't print more elements than the specified maximum.  */
+	    if (INTEGERP (Vprint_length)
+		&& XINT (Vprint_length) < size)
+	      size = XINT (Vprint_length);
+
 	    for (i = 0; i < size; i++)
 	      {
 		if (i) PRINTCHAR (' ');