(print_object): If vector printing is truncated, print "..." to

indicate it as well as the case of list printing.

diff --git a/src/print.c b/src/print.c
index debd6c67f98756e0d2601379a22539007944ac2a..85b508a50b4e3246f16d63293edbeed95d5584e3 100644 (file)
--- a/src/print.c
+++ b/src/print.c
@@ -1718,6 +1718,7 @@ print_object (obj, printcharfun, escapeflag)
          {
            register int i;
            register Lisp_Object tem;
+           int real_size = size;
 
            /* Don't print more elements than the specified maximum.  */
            if (NATNUMP (Vprint_length)
@@ -1730,6 +1731,8 @@ print_object (obj, printcharfun, escapeflag)
                tem = XVECTOR (obj)->contents[i];
                print_object (tem, printcharfun, escapeflag);
              }
+           if (size < real_size)
+             strout (" ...", 4, 4, printcharfun, 0);
          }
          PRINTCHAR (']');
        }