diff options
| author | Miles Bader <miles@gnu.org> | 2007-01-24 13:57:38 +0000 |
|---|---|---|
| committer | Miles Bader <miles@gnu.org> | 2007-01-24 13:57:38 +0000 |
| commit | b0dfdedac4114663a84e75b2c60bf65fdc1c748c (patch) | |
| tree | 07d0fc7bdafbc10cc287d5fbb2d57e2b255dba19 /lisp | |
| parent | d0e1fae0afe478770393344437b474c747b2f268 (diff) | |
| download | emacs-b0dfdedac4114663a84e75b2c60bf65fdc1c748c.tar.gz | |
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
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/emacs-lisp/bytecomp.el | 4 |
2 files changed, 8 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 5c73d975079..74b168244c8 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 |