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

1 files changed, 4 insertions, 0 deletions

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;