Mercurial > emacs
changeset 75402:122ece8ca23d
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
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Wed, 24 Jan 2007 13:57:38 +0000 |
| parents | 22f89b72ef50 |
| children | a93cafe0275e |
| files | lisp/ChangeLog lisp/emacs-lisp/bytecomp.el |
| diffstat | 2 files changed, 8 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- 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
--- 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