# HG changeset patch # User Karl Heuer # Date 806021185 0 # Node ID 176c42cc7eeb676945d4c7e94ca45ba6050b4fd6 # Parent 572a8ef6b1f44883000ca1c6792c5cdd713efb44 (byte-compile-output-file-form): Bind print-length and print-level to nil. diff -r 572a8ef6b1f4 -r 176c42cc7eeb lisp/emacs-lisp/bytecomp.el --- a/lisp/emacs-lisp/bytecomp.el Mon Jul 17 22:44:40 1995 +0000 +++ b/lisp/emacs-lisp/bytecomp.el Mon Jul 17 22:46:25 1995 +0000 @@ -1426,6 +1426,8 @@ (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)