# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1170033731 0
# Node ID 76c18a7841bfefcc423cb1ef083de7200b2bf3a8
# Parent  cfbd9931b49318fc4268954007d5c437b6fa4af0
(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.

diff -r cfbd9931b493 -r 76c18a7841bf lisp/emacs-lisp/bytecomp.el
--- a/lisp/emacs-lisp/bytecomp.el	Sun Jan 28 22:34:31 2007 +0000
+++ b/lisp/emacs-lisp/bytecomp.el	Mon Jan 29 01:22:11 2007 +0000
@@ -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