Mercurial > emacs

changeset 30461:6c5d35d06409

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(print_object): If vector printing is truncated, print "..." to indicate it as well as the case of list printing.
author Kenichi Handa <handa@m17n.org>
date Wed, 26 Jul 2000 04:12:42 +0000
parents b635ea37aac2
children 2d29e09cdef7
files src/print.c
diffstat 1 files changed, 3 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- 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 (']');
 	}