diff options
| author | Karl Heuer <kwzh@gnu.org> | 1995-07-17 22:46:25 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1995-07-17 22:46:25 +0000 |
| commit | 37c29340c75843896e75b6f2742cca6915129c32 (patch) | |
| tree | a8391bf66916b988932710de5725691dd5361b2c /lisp/emacs-lisp | |
| parent | e172f5463f737d5f570b8ea99553eed8e08cb900 (diff) | |
| download | emacs-37c29340c75843896e75b6f2742cca6915129c32.tar.gz emacs-37c29340c75843896e75b6f2742cca6915129c32.tar.bz2 emacs-37c29340c75843896e75b6f2742cca6915129c32.zip | |
(byte-compile-output-file-form): Bind print-length
and print-level to nil.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/bytecomp.el | 2 |
1 files changed, 2 insertions, 0 deletions
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) |