(print): Obey Vprint_length for vectors, bitvectors.

diff --git a/src/print.c b/src/print.c
index 22b5c140b223ed9b10c86d70dd0bd0bd0a0ae9b9..be26917628b40864938b3f4d2c7759582dca6a14 100644 (file)
--- a/src/print.c
+++ b/src/print.c
@@ -1026,6 +1026,12 @@ print (obj, printcharfun, escapeflag)
          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 @@ print (obj, printcharfun, escapeflag)
          {
            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 (' ');