diff options
| author | Paul Eggert <eggert@cs.ucla.edu> | 2013-10-15 14:03:00 -0700 |
|---|---|---|
| committer | Paul Eggert <eggert@cs.ucla.edu> | 2013-10-15 14:03:00 -0700 |
| commit | 5e15c624f938bbf0dafb055b5807dca03cc09bb5 (patch) | |
| tree | 63add60ead06a2ba70dbe11a339a1fab9ec57f9d /src/print.c | |
| parent | 6456c0ea41cc16e94943ff9c4c20d35f94bdbbf7 (diff) | |
| download | emacs-5e15c624f938bbf0dafb055b5807dca03cc09bb5.tar.gz emacs-5e15c624f938bbf0dafb055b5807dca03cc09bb5.tar.bz2 emacs-5e15c624f938bbf0dafb055b5807dca03cc09bb5.zip | |
* print.c (print_object): Print " ..." when truncating bool vectors.
Diffstat (limited to 'src/print.c')
| -rw-r--r-- | src/print.c | 4 |
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; |