Commit 0e66b003 authored by Kenichi Handa's avatar Kenichi Handa
Browse files

(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.
parent 5c4a6052
2007-01-29 Kenichi Handa <handa@m17n.org>
* 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 <storm@cua.dk> 2007-01-28 Kim F. Storm <storm@cua.dk>
   
* emulation/cua-base.el (cua-global-keymap, cua--region-keymap): * emulation/cua-base.el (cua-global-keymap, cua--region-keymap):
...@@ -296,6 +296,10 @@ When this option is true, if you load the compiled file and then move it, ...@@ -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.") the functions you loaded will not be able to run.")
;;;###autoload(put 'byte-compile-dynamic 'safe-local-variable 'booleanp) ;;;###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 (defcustom byte-compile-dynamic-docstrings t
"*If non-nil, compile doc strings for lazy access. "*If non-nil, compile doc strings for lazy access.
We bury the doc strings of functions and variables We bury the doc strings of functions and variables
...@@ -2003,7 +2007,8 @@ With argument, insert value in current buffer after the form." ...@@ -2003,7 +2007,8 @@ With argument, insert value in current buffer after the form."
(print-level nil) (print-level nil)
(print-quoted t) (print-quoted t)
(print-gensym 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) (princ "\n" outbuffer)
(prin1 form outbuffer) (prin1 form outbuffer)
nil))) nil)))
...@@ -2060,7 +2065,8 @@ list that represents a doc string reference. ...@@ -2060,7 +2065,8 @@ list that represents a doc string reference.
;; print-gensym-alist not to be cleared ;; print-gensym-alist not to be cleared
;; between calls to print functions. ;; between calls to print functions.
(print-gensym '(t)) (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-gensym-alist ; was used before print-circle existed.
(print-continuous-numbering t) (print-continuous-numbering t)
print-number-table print-number-table
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment