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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index bdac77d83fc2a823f296351fdbb9dde743cfc6b5..306e84c378889310dbbb1a7083f846fb9b8152a9 100644 (file)
--- 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 647ed490476cecb7989058421e4a24d589268483..4b31a0e69431e4cbe78d6067207872a5ae46ff38 100644 (file)
--- 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