From 5e15c624f938bbf0dafb055b5807dca03cc09bb5 Mon Sep 17 00:00:00 2001 From: Paul Eggert Date: Tue, 15 Oct 2013 14:03:00 -0700 Subject: [PATCH] * print.c (print_object): Print " ..." when truncating bool vectors. --- src/ChangeLog | 4 ++++ src/print.c | 4 ++++ 2 files changed, 8 insertions(+) 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 + + * print.c (print_object): Print " ..." when truncating bool vectors. + 2013-10-15 Eli Zaretskii * 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; -- 2.39.2