mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-03-06 05:52:32 -08:00
Code Issues Projects Releases Wiki Activity

* print.c (print_object): Print " ..." when truncating bool vectors.

Browse source
This commit is contained in:
Paul Eggert 2013-10-15 14:03:00 -07:00
parent 6456c0ea41
commit 5e15c624f9
2 changed files with 8 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/ChangeLog
View file

@ -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

4
src/print.c
View file

@ -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;