# HG changeset patch
# User Miles Bader <miles@gnu.org>
# Date 1169647058 0
# Node ID 122ece8ca23dc4d96f06ea4bc0cb230c26c3c5a9
# Parent  22f89b72ef5034568a7f97a55541da2cdaad5bb7
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 -r 22f89b72ef50 -r 122ece8ca23d lisp/ChangeLog
--- a/lisp/ChangeLog	Wed Jan 24 07:13:07 2007 +0000
+++ b/lisp/ChangeLog	Wed Jan 24 13:57:38 2007 +0000
@@ -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 -r 22f89b72ef50 -r 122ece8ca23d lisp/emacs-lisp/bytecomp.el
--- a/lisp/emacs-lisp/bytecomp.el	Wed Jan 24 07:13:07 2007 +0000
+++ b/lisp/emacs-lisp/bytecomp.el	Wed Jan 24 13:57:38 2007 +0000
@@ -2002,7 +2002,8 @@
 	  (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 @@
 	       ;; 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