diff options
| author | Kenichi Handa <handa@m17n.org> | 2000-07-26 04:12:42 +0000 |
|---|---|---|
| committer | Kenichi Handa <handa@m17n.org> | 2000-07-26 04:12:42 +0000 |
| commit | d6ac884e3492c15c16a6a90d7095743e7de6b97e (patch) | |
| tree | 410e3a5b53042368228e783fde49cd7859762cd7 | |
| parent | 13f5ad37f539a65031923a6a79be6cb763e24a50 (diff) | |
| download | emacs-d6ac884e3492c15c16a6a90d7095743e7de6b97e.tar.gz emacs-d6ac884e3492c15c16a6a90d7095743e7de6b97e.tar.bz2 emacs-d6ac884e3492c15c16a6a90d7095743e7de6b97e.zip | |
(print_object): If vector printing is truncated, print "..." to
indicate it as well as the case of list printing.
| -rw-r--r-- | src/print.c | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/print.c b/src/print.c index debd6c67f98..85b508a50b4 100644 --- a/src/print.c +++ b/src/print.c @@ -1718,6 +1718,7 @@ print_object (obj, printcharfun, escapeflag) { register int i; register Lisp_Object tem; + int real_size = size; /* Don't print more elements than the specified maximum. */ if (NATNUMP (Vprint_length) @@ -1730,6 +1731,8 @@ print_object (obj, printcharfun, escapeflag) tem = XVECTOR (obj)->contents[i]; print_object (tem, printcharfun, escapeflag); } + if (size < real_size) + strout (" ...", 4, 4, printcharfun, 0); } PRINTCHAR (']'); } |