commit/XEmacs: Jerry James: Bind print-circle when printing backtraces.

1 new commit in XEmacs:

https://bitbucket.org/xemacs/xemacs/commits/acf1c26e3019/
Changeset:   acf1c26e3019
User:        Jerry James
Date:        2014-05-15 20:25:25
Summary:     Bind print-circle when printing backtraces.
See <CAHCOHQkhpgXZFH5pWAEzdkzVsbAeQqCpNAKsFte1pX8Fv5FjNA@mail.gmail.com> in
xemacs-patches.
Affected #:  2 files

diff -r d2c0ff38ad5cf62e35cfe32960c50e923b651bbb -r acf1c26e3019f3e8171b591c5b9e120f87187012 src/ChangeLog
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,9 @@
+2014-05-08  Jerry James  <[email protected]>
+
+	* print.c (struct debug_bindings): Add print_circle field.
+	(debug_print_exit): Restore print_circle.
+	(debug_print_enter): Save print_circle binding and set it.
+
 2014-05-06  Jerry James  <[email protected]>
 
 	* file-coding.c (encode_decode_coding_region): Signal an error if

diff -r d2c0ff38ad5cf62e35cfe32960c50e923b651bbb -r acf1c26e3019f3e8171b591c5b9e120f87187012 src/print.c
--- a/src/print.c
+++ b/src/print.c
@@ -164,6 +164,7 @@
   int print_depth;
   int print_readably;
   int print_unbuffered;
+  int print_circle;
   int in_debug_print;
   int gc_currently_forbidden;
   Lisp_Object Vprint_length;
@@ -2847,6 +2848,7 @@
   print_depth = bindings->print_depth;
   print_readably = bindings->print_readably;
   print_unbuffered = bindings->print_unbuffered;
+  print_circle = bindings->print_circle;
   in_debug_print = bindings->in_debug_print;
   gc_currently_forbidden = bindings->gc_currently_forbidden;
   Vprint_length = bindings->Vprint_length;
@@ -2873,6 +2875,7 @@
   bindings->print_depth = print_depth;
   bindings->print_readably = print_readably;
   bindings->print_unbuffered = print_unbuffered;
+  bindings->print_circle = print_circle;
   bindings->in_debug_print = in_debug_print;
   bindings->gc_currently_forbidden = gc_currently_forbidden;
   bindings->Vprint_length = Vprint_length;
@@ -2885,6 +2888,7 @@
   print_depth = 0;
   print_readably = debug_print_readably != -1 ? debug_print_readably : 0;
   print_unbuffered++;
+  print_circle = 1;
   in_debug_print = 1;
   gc_currently_forbidden = 1;
   if (debug_print_length > 0)

Repository URL: https://bitbucket.org/xemacs/xemacs/

--

This is a commit notification from bitbucket.org. You are receiving
this because you have the service enabled, addressing the recipient of
this email.