From 0e66b003a748db190268cd6463cc48645a4481e1 Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Mon, 29 Jan 2007 01:22:53 +0000 Subject: [PATCH] (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. --- lisp/ChangeLog | 8 ++++++++ lisp/emacs-lisp/bytecomp.el | 10 ++++++++-- 2 files changed, 16 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 7d30691f1a6..663be6b8607 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,11 @@ +2007-01-29 Kenichi Handa + + * emacs-lisp/bytecomp.el (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. + 2007-01-28 Kim F. Storm * emulation/cua-base.el (cua-global-keymap, cua--region-keymap): diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el index 4b31a0e6943..025d862c11d 100644 --- a/lisp/emacs-lisp/bytecomp.el +++ b/lisp/emacs-lisp/bytecomp.el @@ -296,6 +296,10 @@ When this option is true, if you load the compiled file and then move it, 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 @@ With argument, insert value in current buffer after the form." (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 @@ 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-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 -- 2.39.2