Commit d6ac884e authored by Kenichi Handa's avatar Kenichi Handa
Browse files

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

indicate it as well as the case of list printing.
parent 13f5ad37
......@@ -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 (']');
}
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment