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

2 files changed, 8 insertions, 0 deletions

diff --git a/src/ChangeLog b/src/ChangeLog
index ece16c869c0..19f7fdcfcff 100644
--- 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 04552be906f..965d719f852 100644
--- 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;