diff options
Diffstat (limited to 'lisp/emacs-lisp/bytecomp.el')
| -rw-r--r-- | lisp/emacs-lisp/bytecomp.el | 4 |
1 files changed, 3 insertions, 1 deletions
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 |