(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 9661928f0984ea2701ad77c520cfb760cf583f34..fccba021a8e0bbadf5640a4b2d8b2a34be600c9e 100644 (file)
--- 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)