diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/ChangeLog | 4 | ||||
| -rw-r--r-- | src/print.c | 4 |
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; |