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 | |
| parent | 6456c0ea41cc16e94943ff9c4c20d35f94bdbbf7 (diff) | |
| download | emacs-5e15c624f938bbf0dafb055b5807dca03cc09bb5.tar.gz emacs-5e15c624f938bbf0dafb055b5807dca03cc09bb5.tar.bz2 emacs-5e15c624f938bbf0dafb055b5807dca03cc09bb5.zip | |
* print.c (print_object): Print " ..." when truncating bool vectors.
| -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; |