diff options
| author | Richard M. Stallman <rms@gnu.org> | 1996-06-29 06:20:14 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1996-06-29 06:20:14 +0000 |
| commit | a40384bc10d34f5bb8ed439fc7e0715863f294d0 (patch) | |
| tree | fbc7da1c518522fc177298d2ef6aabc2f0bb4f6b | |
| parent | 281bbdfb6aca217575a830c3a62fcb802cd46a29 (diff) | |
| download | emacs-a40384bc10d34f5bb8ed439fc7e0715863f294d0.tar.gz | |
(print): Obey Vprint_length for vectors, bitvectors.
| -rw-r--r-- | src/print.c | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/src/print.c b/src/print.c index 22b5c140b22..be26917628b 100644 --- a/src/print.c +++ b/src/print.c @@ -1026,6 +1026,12 @@ print (obj, printcharfun, escapeflag) sprintf (buf, "%d", XBOOL_VECTOR (obj)->size); strout (buf, -1, printcharfun); PRINTCHAR ('\"'); + + /* Don't print more characters than the specified maximum. */ + if (INTEGERP (Vprint_length) + && XINT (Vprint_length) < size_in_chars) + size_in_chars = XINT (Vprint_length); + for (i = 0; i < size_in_chars; i++) { QUIT; @@ -1124,6 +1130,12 @@ print (obj, printcharfun, escapeflag) { register int i; register Lisp_Object tem; + + /* Don't print more elements than the specified maximum. */ + if (INTEGERP (Vprint_length) + && XINT (Vprint_length) < size) + size = XINT (Vprint_length); + for (i = 0; i < size; i++) { if (i) PRINTCHAR (' '); |