[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/bytecomp.el,v
From: |
Kenichi Handa |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/bytecomp.el,v |
Date: |
Mon, 29 Jan 2007 01:22:11 +0000 |
CVSROOT: /cvsroot/emacs
Module name: emacs
Changes by: Kenichi Handa <handa> 07/01/29 01:22:11
Index: bytecomp.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/emacs-lisp/bytecomp.el,v
retrieving revision 2.192
retrieving revision 2.193
diff -u -b -r2.192 -r2.193
--- bytecomp.el 24 Jan 2007 13:57:38 -0000 2.192
+++ bytecomp.el 29 Jan 2007 01:22:11 -0000 2.193
@@ -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