(byte-compile-disable-print-circle): New

variable.
(byte-compile-output-file-form): Bing print-circle to nil if
byte-compile-output-file-form is not nil.
(byte-compile-output-docform): Likewise.

2 files changed, 16 insertions, 2 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7d30691f1a6..663be6b8607 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,11 @@
+2007-01-29  Kenichi Handa  <handa@m17n.org>
+
+        * emacs-lisp/bytecomp.el (byte-compile-disable-print-circle): New
+        variable.
+        (byte-compile-output-file-form): Bing print-circle to nil if
+        byte-compile-output-file-form is not nil.
+        (byte-compile-output-docform): Likewise.
+
 2007-01-28  Kim F. Storm  <storm@cua.dk>
 
         * emulation/cua-base.el (cua-global-keymap, cua--region-keymap):
diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el
index 4b31a0e6943..025d862c11d 100644
--- a/lisp/emacs-lisp/bytecomp.el
+++ b/lisp/emacs-lisp/bytecomp.el
@@ -296,6 +296,10 @@ When this option is true, if you load the compiled file and then move it,
 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 @@ With argument, insert value in current buffer after the form."
           (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 @@ list that represents a doc string reference.
                ;; 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