Commit 37c29340 authored by Karl Heuer's avatar Karl Heuer
Browse files

(byte-compile-output-file-form): Bind print-length

and print-level to nil.
parent e172f546
......@@ -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)
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