* print.c (print_object): Print " ..." when truncating bool vectors.

diff --git a/src/ChangeLog b/src/ChangeLog
index ece16c869c0f6e279f00cf526281649793545ca8..19f7fdcfcfff7825598873b2c2fd27668ca74d3c 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,7 @@
+2013-10-15  Paul Eggert  <eggert@cs.ucla.edu>
+
+       * print.c (print_object): Print " ..." when truncating bool vectors.
+
 2013-10-15  Eli Zaretskii  <eliz@gnu.org>
 
        * w32inevt.c (do_mouse_event): Support mouse wheel and all the 5

diff --git a/src/print.c b/src/print.c
index 04552be906fe642bc57dc672de15641b3b4bf948..965d719f852c022a62c8feb7bc0111366e3c9c5e 100644 (file)
--- a/src/print.c
+++ b/src/print.c
@@ -1707,6 +1707,7 @@ print_object (Lisp_Object obj, Lisp_Object printcharfun, bool escapeflag)
          EMACS_INT size = bool_vector_size (obj);
          ptrdiff_t size_in_chars = ((size + BOOL_VECTOR_BITS_PER_CHAR - 1)
                                     / BOOL_VECTOR_BITS_PER_CHAR);
+         ptrdiff_t real_size_in_chars = size_in_chars;
          GCPRO1 (obj);
 
          PRINTCHAR ('#');
@@ -1751,6 +1752,9 @@ print_object (Lisp_Object obj, Lisp_Object printcharfun, bool escapeflag)
                  PRINTCHAR (c);
                }
            }
+
+         if (size_in_chars < real_size_in_chars)
+           strout (" ...", 4, 4, printcharfun);
          PRINTCHAR ('\"');
 
          UNGCPRO;