From: Kenichi Handa <handa@m17n.org>
Date: Wed, 26 Jul 2000 04:12:42 +0000 (+0000)
Subject: (print_object): If vector printing is truncated, print "..." to
X-Git-Tag: emacs-pretest-21.0.90~2608
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d6ac884e3492c15c16a6a90d7095743e7de6b97e;p=emacs.git

(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 debd6c67f98..85b508a50b4 100644
--- 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 (']');
 	}