Mercurial > emacs
changeset 56455:66c2afb52fc1
(print_preprocess): Test for print_depth at limit
before entering in being_printed.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 17 Jul 2004 14:54:56 +0000 |
| parents | 1e0c70660fff |
| children | 7f86a9a89685 |
| files | src/print.c |
| diffstat | 1 files changed, 5 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/src/print.c Sat Jul 17 14:50:58 2004 +0000 +++ b/src/print.c Sat Jul 17 14:54:56 2004 +0000 @@ -1284,6 +1284,11 @@ int loop_count = 0; Lisp_Object halftail; + /* Give up if we go so deep that print_object will get an error. */ + /* See similar code in print_object. */ + if (print_depth >= PRINT_CIRCLE) + return; + /* Avoid infinite recursion for circular nested structure in the case where Vprint_circle is nil. */ if (NILP (Vprint_circle)) @@ -1294,11 +1299,6 @@ being_printed[print_depth] = obj; } - /* Give up if we go so deep that print_object will get an error. */ - /* See similar code in print_object. */ - if (print_depth >= PRINT_CIRCLE) - return; - print_depth++; halftail = obj;