From: Karl Heuer Date: Mon, 17 Jul 1995 22:46:25 +0000 (+0000) Subject: (byte-compile-output-file-form): Bind print-length X-Git-Tag: emacs-19.34~3307 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=37c29340c75843896e75b6f2742cca6915129c32;p=emacs.git (byte-compile-output-file-form): Bind print-length and print-level to nil. --- diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el index 9661928f098..fccba021a8e 100644 --- a/lisp/emacs-lisp/bytecomp.el +++ b/lisp/emacs-lisp/bytecomp.el @@ -1426,6 +1426,8 @@ With argument, insert value in current buffer after the form." (byte-compile-output-docform nil nil '("\n(" 3 ")") form nil (eq (car form) 'autoload)) (let ((print-escape-newlines t) + (print-length nil) + (print-level nil) (print-readably t) ; print #[] for bytecode, 'x for (quote x) (print-gensym nil)) ; this is too dangerous for now (princ "\n" outbuffer)