[Emacs-diffs] trunk r114674: * print.c (print_object): Print " ..." when truncating bool vectors.

[Paul Eggert]

------------------------------------------------------------
revno: 114674
revision-id: address@hidden
parent: address@hidden
committer: Paul Eggert <address@hidden>
branch nick: trunk
timestamp: Tue 2013-10-15 14:03:00 -0700
message:
  * print.c (print_object): Print " ..." when truncating bool vectors.
modified:
  src/ChangeLog                  changelog-20091113204419-o5vbwnq5f7feedwu-1438
  src/print.c                    print.c-20091113204419-o5vbwnq5f7feedwu-262

=== modified file 'src/ChangeLog'
--- a/src/ChangeLog     2013-10-15 18:38:26 +0000
+++ b/src/ChangeLog     2013-10-15 21:03:00 +0000
@@ -1,3 +1,7 @@
+2013-10-15  Paul Eggert  <address@hidden>
+
+       * print.c (print_object): Print " ..." when truncating bool vectors.
+
 2013-10-15  Eli Zaretskii  <address@hidden>
 
        * w32inevt.c (do_mouse_event): Support mouse wheel and all the 5

=== modified file 'src/print.c'
--- a/src/print.c       2013-10-14 07:12:49 +0000
+++ b/src/print.c       2013-10-15 21:03:00 +0000
@@ -1707,6 +1707,7 @@
          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 @@
                  PRINTCHAR (c);
                }
            }
+
+         if (size_in_chars < real_size_in_chars)
+           strout (" ...", 4, 4, printcharfun);
          PRINTCHAR ('\"');
 
          UNGCPRO;