From d6ac884e3492c15c16a6a90d7095743e7de6b97e Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Wed, 26 Jul 2000 04:12:42 +0000 Subject: [PATCH] (print_object): If vector printing is truncated, print "..." to indicate it as well as the case of list printing. --- src/print.c | 3 +++ 1 file changed, 3 insertions(+) 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 (']'); } -- 2.39.2