mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-23 22:20:24 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source 
and print-level to nil.
This commit is contained in:
Karl Heuer 1995-07-17 22:46:25 +00:00
parent e172f5463f
commit 37c29340c7
1 changed files with 2 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lisp/emacs-lisp/bytecomp.el
View file

@ -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)