[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/bytecomp.el,v

[Kenichi Handa]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Kenichi Handa <handa>   07/01/29 01:22:11

Index: bytecomp.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/emacs-lisp/bytecomp.el,v
retrieving revision 2.192
retrieving revision 2.193
diff -u -b -r2.192 -r2.193
--- bytecomp.el 24 Jan 2007 13:57:38 -0000      2.192
+++ bytecomp.el 29 Jan 2007 01:22:11 -0000      2.193
@@ -296,6 +296,10 @@
 the functions you loaded will not be able to run.")
 ;;;###autoload(put 'byte-compile-dynamic 'safe-local-variable 'booleanp)
 
+(defvar byte-compile-disable-print-circle nil
+  "If non-nil, disable `print-circle' on printing a byte-compiled code.")
+;;;###autoload(put 'byte-compile-disable-print-circle 'safe-local-variable 
'booleanp)
+
 (defcustom byte-compile-dynamic-docstrings t
   "*If non-nil, compile doc strings for lazy access.
 We bury the doc strings of functions and variables
@@ -2003,7 +2007,8 @@
          (print-level nil)
          (print-quoted t)
          (print-gensym t)
-         (print-circle t))            ; handle circular data structures
+         (print-circle              ; handle circular data structures
+          (not byte-compile-disable-print-circle)))
       (princ "\n" outbuffer)
       (prin1 form outbuffer)
       nil)))
@@ -2060,7 +2065,8 @@
               ;; print-gensym-alist not to be cleared
               ;; between calls to print functions.
               (print-gensym '(t))
-              (print-circle t)        ; handle circular data structures
+              (print-circle           ; handle circular data structures
+               (not byte-compile-disable-print-circle))
               print-gensym-alist    ; was used before print-circle existed.
               (print-continuous-numbering t)
               print-number-table