# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 964584762 0
# Node ID 6c5d35d06409f6d3472a8361cda88a595b8b6c19
# Parent  b635ea37aac264f59d9423e994a0df70d5d0e5b4
(print_object): If vector printing is truncated, print "..." to
indicate it as well as the case of list printing.

diff -r b635ea37aac2 -r 6c5d35d06409 src/print.c
--- a/src/print.c	Wed Jul 26 04:11:59 2000 +0000
+++ b/src/print.c	Wed Jul 26 04:12:42 2000 +0000
@@ -1718,6 +1718,7 @@
 	  {
 	    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 @@
 		tem = XVECTOR (obj)->contents[i];
 		print_object (tem, printcharfun, escapeflag);
 	      }
+	    if (size < real_size)
+	      strout (" ...", 4, 4, printcharfun, 0);
 	  }
 	  PRINTCHAR (']');
 	}