Mercurial > emacs
changeset 75489:76c18a7841bf
(byte-compile-disable-print-circle): New
variable.
(byte-compile-output-file-form): Bing print-circle to nil if
byte-compile-output-file-form is not nil.
(byte-compile-output-docform): Likewise.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Mon, 29 Jan 2007 01:22:11 +0000 |
| parents | cfbd9931b493 |
| children | 1cf2ac308bdc |
| files | lisp/emacs-lisp/bytecomp.el |
| diffstat | 1 files changed, 8 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/emacs-lisp/bytecomp.el Sun Jan 28 22:34:31 2007 +0000 +++ b/lisp/emacs-lisp/bytecomp.el Mon Jan 29 01:22:11 2007 +0000 @@ -296,6 +296,10 @@ the functions you loaded will not be able to run.") ;;;###autoload(put 'byte-compile-dynamic 'safe-local-variable 'booleanp) +(defvar byte-compile-disable-print-circle nil + "If non-nil, disable `print-circle' on printing a byte-compiled code.") +;;;###autoload(put 'byte-compile-disable-print-circle 'safe-local-variable 'booleanp) + (defcustom byte-compile-dynamic-docstrings t "*If non-nil, compile doc strings for lazy access. We bury the doc strings of functions and variables @@ -2003,7 +2007,8 @@ (print-level nil) (print-quoted t) (print-gensym t) - (print-circle t)) ; handle circular data structures + (print-circle ; handle circular data structures + (not byte-compile-disable-print-circle))) (princ "\n" outbuffer) (prin1 form outbuffer) nil))) @@ -2060,7 +2065,8 @@ ;; print-gensym-alist not to be cleared ;; between calls to print functions. (print-gensym '(t)) - (print-circle t) ; handle circular data structures + (print-circle ; handle circular data structures + (not byte-compile-disable-print-circle)) print-gensym-alist ; was used before print-circle existed. (print-continuous-numbering t) print-number-table