Make byte compiler correctly write circular constants

2007-01-24  Miles Bader  <miles@gnu.org>

   * lisp/emacs-lisp/bytecomp.el (byte-compile-output-file-form)
   (byte-compile-output-docform): Bind `print-circle' to t.

Revision: emacs@sv.gnu.org/emacs--devo--0--patch-614

2 files changed, 8 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index bdac77d83fc..306e84c3788 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2007-01-24  Miles Bader  <miles@gnu.org>
+
+        * emacs-lisp/bytecomp.el (byte-compile-output-file-form)
+        (byte-compile-output-docform): Bind `print-circle' to t.
+
 2007-01-24  Kenichi Handa  <handa@m17n.org>
 
         * international/ja-dic-cnv.el (skkdic-convert): Insert a related
diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el
index 647ed490476..4b31a0e6943 100644
--- a/lisp/emacs-lisp/bytecomp.el
+++ b/lisp/emacs-lisp/bytecomp.el
@@ -2002,7 +2002,8 @@ With argument, insert value in current buffer after the form."
           (print-length nil)
           (print-level nil)
           (print-quoted t)
-          (print-gensym t))
+          (print-gensym t)
+          (print-circle t))            ; handle circular data structures
       (princ "\n" outbuffer)
       (prin1 form outbuffer)
       nil)))
@@ -2059,6 +2060,7 @@ 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-gensym-alist    ; was used before print-circle existed.
                (print-continuous-numbering t)
                print-number-table